lispexp 0.7.0

A pure-Rust reader (lexer + parser) for S-expression syntax across many Lisp dialects
Documentation 
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

//! Reader tests for the Fennel dialect.

use lispexp::{parse, Datum, DatumKind, Delim, Options, Prefix};

fn fnl(src: &str) -> Vec<Datum<'_>> {
    let parsed = parse(src, &Options::fennel());
    assert!(
        parsed.errors.is_empty(),
        "unexpected errors: {:?}",
        parsed.errors
    );
    parsed.data
}

#[test]
fn square_is_list_shape() {
    let data = fnl("[1 2]");
    assert!(matches!(
        data[0].kind,
        DatumKind::List {
            delim: Delim::Square,
            ..
        }
    ));
}

#[test]
fn curly_is_table_shape() {
    let data = fnl("{:a 1}");
    let DatumKind::List { delim, items, .. } = &data[0].kind else {
        panic!()
    };
    assert_eq!(*delim, Delim::Curly);
    // keyword_colon is false, so `:a` is a plain symbol leaf.
    assert_eq!(items[0].kind, DatumKind::Symbol(":a"));
}

#[test]
fn hash_paren_is_hashfn() {
    let data = fnl("#(+ $1 1)");
    assert!(matches!(
        data[0].kind,
        DatumKind::Prefixed {
            prefix: Prefix::HashFn,
            ..
        }
    ));
}

#[test]
fn fn_form_with_square_params() {
    let data = fnl("(fn [x] x)");
    assert_eq!(data.len(), 1);
    let DatumKind::List { items, .. } = &data[0].kind else {
        panic!()
    };
    assert_eq!(items[0].kind, DatumKind::Symbol("fn"));
    assert!(matches!(
        items[1].kind,
        DatumKind::List {
            delim: Delim::Square,
            ..
        }
    ));
}

#[test]
fn true_false_nil_are_symbols() {
    let data = fnl("true false nil");
    assert_eq!(data[0].kind, DatumKind::Symbol("true"));
    assert_eq!(data[1].kind, DatumKind::Symbol("false"));
    assert_eq!(data[2].kind, DatumKind::Symbol("nil"));
}

#[test]
fn colon_prefixed_is_a_symbol_not_keyword() {
    let data = fnl(":foo");
    assert_eq!(data[0].kind, DatumKind::Symbol(":foo"));
}

#[test]
fn line_comment_is_skipped() {
    let data = fnl("; a comment\n(print :ok)");
    assert_eq!(data.len(), 1);
    assert!(matches!(data[0].kind, DatumKind::List { .. }));
}