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
|
println(This should print $"'x'")
match $'x'
case $'.*'
println($0)
default
println(Match failed)
println($"This should print 'foo'")
match $'abcfoodef'
case $'foo'
println($0)
default
println(Match failed)
println(This should print $"'d'")
match $'abcdef'
case $'g'
println(Incorrect match)
println($0)
case $'d'
println($0)
default
println(Match failed)
println(This should print $"'d'")
match $'abcdef'
case $'bc\(.*\)ef'
println($1)
default
println(Match failed)
println(This should print $"'foo'")
match $'fooXbarZmoo'
case $'\(.*\)X'
println($*)
default
println(Match failed)
#
# Delimiters
#
println($"This should print 'foo bar' (no extra spaces)")
match $'fooXbarYmoo'
case $'\(.*\)X\(.*\)Y'
println($(string $*))
default
println(Match failed)
println($"This should print 'fooXbar moo' (no extra spaces)")
match $'fooXbarXmooYbar'
case $'\(.*\)X\(.*\)Y'
println($(string $*))
default
println(Match failed)
#
# Nested arguments
#
println($"This should print 'moo' (no extra spaces)")
match $'fooXbooXmooXgoo'
case $'(\(.*\)X)*'
println($(string $*))
default
println(Match failed)
println($"This should print 'fooXbooXmooX moo' (no extra spaces)")
match $'fooXbooXmooXgoo'
case $'\((\(.*\)X)*\)'
println($(string $*))
default
println(Match failed)
#
# Other tests
#
println($"This should print '1 is xyz' and '2 is bar'")
match foo_xyz/bar.a
case foo_\\\(.*\\\)/\\\(.*\\\)\.a
println(1 is $1)
println(2 is $2)
default
println(Match failed)
|
