neovm-core 0.0.2

Core runtime structures for NeoVM
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35

use neovm_core::emacs_core::eval::Context;
use neovm_core::emacs_core::format_eval_result;

#[test]
fn compat_source_bootstrap_macro_surface_is_minimal() {
    let mut eval = Context::new();
    eval.set_lexical_binding(true);

    let result = eval.eval_str(
        r#"(let* ((pcase-macroexpander
                   (intern "`--pcase-macroexpander"))
                  (symbols (list 'eval-and-compile
                                 'defvar-local
                                 'track-mouse
                                 'with-current-buffer
                                 'with-temp-buffer
                                 'with-output-to-string
                                 'with-syntax-table
                                 'with-mutex
                                 'pcase
                                 'pcase-defmacro
                                 pcase-macroexpander)))
  (mapcar
   (lambda (sym)
     (list sym
           (fboundp sym)
           (macrop sym)))
   symbols))"#,
    );
    let rendered = format_eval_result(&result);
    assert_eq!(
        rendered,
        "OK ((eval-and-compile nil nil) (defvar-local nil nil) (track-mouse nil nil) (with-current-buffer nil nil) (with-temp-buffer nil nil) (with-output-to-string nil nil) (with-syntax-table nil nil) (with-mutex nil nil) (pcase nil nil) (pcase-defmacro nil nil) (\\`--pcase-macroexpander nil nil))"
    );
}