sparser 0.1.1

S-expression parser for Rust
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

use super::{parse};

#[test]
fn one_symbol(){
    assert_eq!(parse("(set!)").car().unwrap_symbol(), "set!")
}

#[test]
fn nested_list(){
    assert_eq!(parse("((set!))").car().car().unwrap_symbol(), "set!")
}

#[test]
fn literals(){
    assert_eq!(parse("(if 'symb)").cdr().car().unwrap_literal(), "symb")
}

#[test]
fn numbers(){
    assert_eq!(parse("(set! x 3)").cdr().cdr().car().unwrap_number(), 3)
}

#[test]
fn true_literal(){
    assert_eq!(parse("(#t)").car().is_true(), true);
}

#[test]
fn false_literal(){
    assert_eq!(parse("(#f)").car().is_true(), false);
}

#[test]
fn bool_literal_case_insentive(){
    assert_eq!(parse("(#F)").car().is_true(), false);
    assert_eq!(parse("(#T)").car().is_true(), true);
}

#[test]
fn true_oposite_of_false(){
    assert_eq!(parse("(#t)").car().is_false(), false);
    assert_eq!(parse("(#f)").car().is_false(), true);
}

#[test]
fn special_symbols(){
    parse("(= * / - + ?)");
}

#[test]
#[should_panic]
fn not_closed_expression(){
    parse("(set! x 1");
}

#[test]
#[should_panic]
fn invalid_expression(){
    parse("(if #t 3 2) (exit)");
}