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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65

use super::*;
use crate::emacs_core::eval::Context;

#[test]
fn register_bootstrap_vars_matches_gnu_alloc_defaults() {
    crate::test_utils::init_test_tracing();
    let mut obarray = Obarray::new();
    register_bootstrap_vars(&mut obarray);

    assert_eq!(
        obarray.symbol_value("gc-cons-threshold").copied(),
        Some(Value::fixnum(800_000))
    );
    assert_eq!(
        obarray.symbol_value("garbage-collection-messages").copied(),
        Some(Value::NIL)
    );
    assert_eq!(
        obarray.symbol_value("post-gc-hook").copied(),
        Some(Value::NIL)
    );
    assert_eq!(
        obarray.symbol_value("memory-full").copied(),
        Some(Value::NIL)
    );
    assert_eq!(
        obarray.symbol_value("gcs-done").copied(),
        Some(Value::fixnum(0))
    );

    let signal_data = obarray
        .symbol_value("memory-signal-data")
        .copied()
        .expect("memory-signal-data");
    let items = list_to_vec(&signal_data).expect("memory-signal-data list");
    assert_eq!(items.len(), 2);
    assert_eq!(items[0], Value::symbol("error"));
    assert_eq!(
        items[1],
        Value::string("Memory exhausted--use M-x save-some-buffers then exit and restart Emacs")
    );
}

#[test]
fn evaluator_binds_alloc_bootstrap_vars() {
    crate::test_utils::init_test_tracing();
    let eval = Context::new();
    let obarray = eval.obarray();

    assert_eq!(
        obarray.symbol_value("memory-full").copied(),
        Some(Value::NIL)
    );
    assert_eq!(
        obarray.symbol_value("post-gc-hook").copied(),
        Some(Value::NIL)
    );

    let signal_data = obarray
        .symbol_value("memory-signal-data")
        .copied()
        .expect("memory-signal-data");
    let items = list_to_vec(&signal_data).expect("memory-signal-data list");
    assert_eq!(items[0], Value::symbol("error"));
}