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
|
#
# Simple lazy tests.
#
errors = 0
check(debug, i, j) =
if $(equal $i, $j)
println($"$(debug) = $i [SUCCESS]")
else
eprintln($"$(debug):
computed $i
should be $j [FAILURE]")
errors = $(add $(errors), 1)
export
export
#
# Simple var
#
Y = 1
X = $`Y
Y = 2
check($"X", $X, 2)
#
# With an eager application
#
Z = 3
X = $`(sub $Y, $,Z)
Y = 4
Z = 5
check($'$(sub $Y, $,Z)', $X, 1)
#
# Double quote
#
Z = 3
W = 4
X = $`(add $Y, $`(mul $Z, $,W))
check($'''$`(add $Y, $`(mul $Z, $,W))''', $X, 16)
W = 5
check($'''$`(add $Y, $`(mul $Z, $,W))''', $X, 16)
if $(errors)
exit 1
|
