lispexp 0.1.1

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

//! Reader tests for the LFE (Lisp Flavoured Erlang) dialect.

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

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

#[test]
fn hash_paren_tuple() {
    let data = lfe("#(1 2)");
    let DatumKind::HashLiteral { tag, inner } = &data[0].kind else {
        panic!("expected tuple, got {:?}", data[0].kind)
    };
    assert_eq!(*tag, "");
    assert!(matches!(
        inner.as_ref().unwrap().kind,
        DatumKind::List { .. }
    ));
}

#[test]
fn binary_string() {
    let data = lfe(r#"#"abc""#);
    assert!(matches!(data[0].kind, DatumKind::Str(_)));
}

#[test]
fn function_quote_with_arity() {
    let data = lfe("#'foo/2");
    let DatumKind::Prefixed { prefix, inner, .. } = &data[0].kind else {
        panic!()
    };
    assert_eq!(*prefix, Prefix::FunctionQuote);
    assert_eq!(inner.kind, DatumKind::Symbol("foo/2"));
}

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

#[test]
fn dotted_pair() {
    let data = lfe("(a . b)");
    let DatumKind::List { items, tail, .. } = &data[0].kind else {
        panic!()
    };
    assert_eq!(items.len(), 1);
    assert_eq!(tail.as_ref().unwrap().kind, DatumKind::Symbol("b"));
}

#[test]
fn non_nestable_block_comment_is_skipped() {
    let data = lfe("#| a |# (foo)");
    assert_eq!(data.len(), 1);
    let DatumKind::List { items, .. } = &data[0].kind else {
        panic!()
    };
    assert_eq!(items[0].kind, DatumKind::Symbol("foo"));
}

#[test]
fn colon_prefixed_is_a_symbol() {
    // Colon is an ordinary symbol character in LFE; not a keyword.
    let data = lfe(":foo");
    assert_eq!(data[0].kind, DatumKind::Symbol(":foo"));
}