wander 0.5.0

The Wander scripting language.
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
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102

// This Source Code Form is subject to the terms of the Mozilla Public
// License, v. 2.0. If a copy of the MPL was not distributed with this
// file, You can obtain one at http://mozilla.org/MPL/2.0/.

use wander::lexer::Token;
use wander::parser::{parse, Element};

use crate::utilities::parse_str;

#[path = "utilities.rs"]
mod utilities;

#[test]
fn parse_booleans() {
    let res = parse_str("true");
    let expected = Element::Grouping(vec![Element::Boolean(true)]);
    assert_eq!(res, expected);
}

#[test]
fn parse_integers() {
    let res = parse_str("-100");
    let expected = Element::Grouping(vec![Element::Int(-100)]);
    assert_eq!(res, expected);
}

#[test]
fn parse_strings() {
    let res = parse_str("\"Hello\"");
    let expected = Element::Grouping(vec![Element::String("Hello".to_owned())]);
    assert_eq!(res, expected);
}

#[test]
fn parse_name() {
    let input = vec![Token::Name(String::from("test"))];
    let expected = Ok(Element::Grouping(vec![Element::Name(String::from("test"))]));
    let res = parse(input);
    assert_eq!(res, expected);
}

#[test]
fn parse_lambda() {
    let input = vec![
        Token::Lambda,
        Token::Name("test".to_owned()),
        Token::Arrow,
        Token::Name("test".to_owned()),
    ];
    let res = parse(input);
    let expected = Ok(Element::Grouping(vec![Element::Lambda(
        "test".to_owned(),
        None,
        None,
        Box::new(Element::Grouping(vec![Element::Name("test".to_owned())])),
    )]));
    assert_eq!(res, expected);
}

#[test]
fn parse_list() {
    let res = utilities::parse_str("[test 24601]");
    let expected = Element::Grouping(vec![Element::List(vec![
        Element::Name("test".to_owned()),
        Element::Int(24601),
    ])]);
    assert_eq!(res, expected);
}

#[test]
fn parse_tuple() {
    let res = utilities::parse_str("'(test 24601)");
    let expected = Element::Grouping(vec![Element::Tuple(vec![
        Element::Name("test".to_owned()),
        Element::Int(24601),
    ])]);
    assert_eq!(res, expected);
}

#[test]
fn parse_applications() {
    let res = utilities::parse_str("Bool.not x true");
    let expected = Element::Grouping(vec![
        Element::Name("Bool.not".to_owned()),
        Element::Name("x".to_owned()),
        Element::Boolean(true),
    ]);
    assert_eq!(res, expected);
}

#[test]
fn parse_nested_function_calls() {
    let res = utilities::parse_str("Bool.not (Bool.not false)");
    let expected = Element::Grouping(vec![
        Element::Name("Bool.not".to_owned()),
        Element::Grouping(vec![
            Element::Name("Bool.not".to_owned()),
            Element::Boolean(false),
        ]),
    ]);
    assert_eq!(res, expected);
}