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
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122

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

    assert_eq!(
        obarray.symbol_value("face-default-stipple").copied(),
        Some(Value::string("gray3"))
    );
    assert_eq!(
        obarray
            .symbol_value("face-near-same-color-threshold")
            .copied(),
        Some(Value::fixnum(30_000))
    );
    assert_eq!(
        obarray
            .symbol_value("face-font-lax-matched-attributes")
            .copied(),
        Some(Value::T)
    );

    let table = obarray
        .symbol_value("face--new-frame-defaults")
        .copied()
        .expect("face--new-frame-defaults");
    if !table.is_hash_table() {
        panic!("face--new-frame-defaults must be a hash table");
    };
    let test = table.as_hash_table().unwrap().test.clone();
    assert_eq!(test, HashTableTest::Eq);
}

#[test]
fn frame_face_hash_table_eval_is_empty_before_any_face_realization() {
    crate::test_utils::init_test_tracing();
    let mut eval = crate::emacs_core::eval::Context::new();
    let out = builtin_frame_face_hash_table(&mut eval, vec![Value::NIL])
        .expect("live frame face hash table");
    if !out.is_hash_table() {
        panic!("expected hash table");
    };
    let len = out.as_hash_table().unwrap().data.len();
    assert_eq!(len, 0);
}

#[test]
fn frame_face_hash_table_eval_returns_stable_frame_owned_table() {
    crate::test_utils::init_test_tracing();
    let mut eval = crate::emacs_core::eval::Context::new();
    let first =
        builtin_frame_face_hash_table(&mut eval, vec![Value::NIL]).expect("first face hash table");
    let second =
        builtin_frame_face_hash_table(&mut eval, vec![Value::NIL]).expect("second face hash table");
    assert_eq!(first, second);
}

#[test]
fn mirror_runtime_face_into_frame_uses_symbol_keys() {
    crate::test_utils::init_test_tracing();
    let mut eval = crate::emacs_core::eval::Context::new();
    let frame_id = crate::emacs_core::window_cmds::ensure_selected_frame_id(&mut eval);
    let face = eval.face_table().resolve("default");

    let frame = eval.frames.get_mut(frame_id).expect("selected frame");
    mirror_runtime_face_into_frame(frame, "default", &face);

    assert!(frame.realized_faces.contains_key(&Value::symbol("default")));
    assert!(frame.realized_face("default").is_some());
}

#[test]
fn ensure_startup_compat_variables_backfills_missing_xfaces_state() {
    crate::test_utils::init_test_tracing();
    let mut eval = crate::emacs_core::eval::Context::new();
    for name in [
        "face-filters-always-match",
        "face--new-frame-defaults",
        "face-default-stipple",
        "scalable-fonts-allowed",
        "face-ignored-fonts",
        "face-remapping-alist",
        "face-font-rescale-alist",
        "face-near-same-color-threshold",
        "face-font-lax-matched-attributes",
    ] {
        eval.obarray_mut().makunbound(name);
    }

    ensure_startup_compat_variables(&mut eval);

    assert_eq!(
        eval.obarray().symbol_value("face-default-stipple").copied(),
        Some(Value::string("gray3"))
    );
    let table = eval
        .obarray()
        .symbol_value("face--new-frame-defaults")
        .copied()
        .expect("face hash table backfilled");
    if !table.is_hash_table() {
        panic!("face--new-frame-defaults must be a hash table");
    };
    let has_seeded_faces =
        {
            let hash_table = table.as_hash_table().unwrap();
            hash_table
                .data
                .contains_key(&HashKey::Symbol(crate::emacs_core::intern::intern(
                    "default",
                )))
                && hash_table.data.contains_key(&HashKey::Symbol(
                    crate::emacs_core::intern::intern("mode-line"),
                ))
        };
    assert!(
        has_seeded_faces,
        "face--new-frame-defaults should be preseeded with GNU face entries"
    );
}