ranty 1.0.0

The Ranty procedural templating 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
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166

mod common;

use assert_matches::assert_matches;
use common::{run, run_str};
use ranty::runtime::{RuntimeError, RuntimeErrorType};

#[test]
fn inherited_map_value_lookup() {
    assert_eq!(
        run_str(
            r#"
            <$obj = (::)>
            <$proto = (:: flavor = vanilla)>
            [set-proto: <obj>; <proto>]
            <obj/flavor>
            "#
        ),
        "vanilla"
    );
}

#[test]
fn own_map_values_shadow_prototype_values() {
    assert_eq!(
        run_str(
            r#"
            <$obj = (:: flavor = chocolate)>
            <$proto = (:: flavor = vanilla)>
            [set-proto: <obj>; <proto>]
            <obj/flavor>
            "#
        ),
        "chocolate"
    );
}

#[test]
fn multi_hop_prototype_lookup_works() {
    assert_eq!(
        run_str(
            r#"
            <$obj = (::)>
            <$proto = (::)>
            <$base = (:: flavor = mint)>
            [set-proto: <proto>; <base>]
            [set-proto: <obj>; <proto>]
            <obj/flavor>
            "#
        ),
        "mint"
    );
}

#[test]
fn inherited_functions_are_callable() {
    assert_eq!(
        run_str(
            r#"
            <$obj = (::)>
            <$proto = (:: greet = [?: name] { Hello,\s<name>! })>
            [set-proto: <obj>; <proto>]
            [obj/greet: Ranty]
            "#
        ),
        "Hello, Ranty!"
    );
}

#[test]
fn getter_fallback_uses_full_prototype_chain() {
    assert_eq!(
        run_str(
            r#"
            <$obj = (::)>
            <$proto = (:: flavor = vanilla)>
            [set-proto: <obj>; <proto>]
            <obj/flavor ? oops>, <obj/missing ? oops>
            "#
        ),
        "vanilla, oops"
    );
}

#[test]
fn writing_to_inherited_key_stays_local() {
    assert_eq!(
        run_str(
            r#"
            <$obj = (::)>
            <$proto = (:: flavor = vanilla)>
            [set-proto: <obj>; <proto>]
            <obj/flavor = chocolate>
            <obj/flavor>, <proto/flavor>
            "#
        ),
        "chocolate, vanilla"
    );
}

#[test]
fn removing_and_taking_only_affect_local_keys() {
    assert_eq!(
        run_str(
            r#"
            <$obj = (:: flavor = chocolate; local = here)>
            <$proto = (:: flavor = vanilla; inherited = there)>
            [set-proto: <obj>; <proto>]
            [remove: <obj>; flavor]
            [take: <obj>; local], <obj/flavor>, <proto/flavor>, <obj/inherited ? missing>, <obj/local ? missing>
            "#
        ),
        "here, vanilla, vanilla, there, missing"
    );
}

#[test]
fn lookup_only_utilities_remain_own_only() {
    assert_eq!(
        run_str(
            r#"
            <$obj = (:: own = 1)>
            <$proto = (:: inherited = 2)>
            [set-proto: <obj>; <proto>]
            [has: <obj>; own]\n
            [has: <obj>; inherited]\n
            [len: [keys: <obj>]]\n
            [len: [values: <obj>]]\n
            [translate: (: own; inherited); <obj>]\n
            <obj>
            "#
        ),
        "@true\n@false\n1\n1\n(: 1; inherited)\n(:: own = 1)"
    );
}

#[test]
fn direct_prototype_cycles_are_rejected() {
    assert_matches!(
        run(r#"
            <$obj = (::)>
            [set-proto: <obj>; <obj>]
            "#),
        Err(RuntimeError {
            error_type: RuntimeErrorType::ArgumentError,
            ..
        })
    );
}

#[test]
fn indirect_prototype_cycles_are_rejected() {
    assert_matches!(
        run(r#"
            <$obj = (::)>
            <$proto = (::)>
            <$base = (::)>
            [set-proto: <obj>; <proto>]
            [set-proto: <proto>; <base>]
            [set-proto: <base>; <obj>]
            "#),
        Err(RuntimeError {
            error_type: RuntimeErrorType::ArgumentError,
            ..
        })
    );
}