blob: 5b9578665092d87b05e4941645d34153489e78a9 (
plain)
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
|
use "lib/core.nom"
# Prerequisites:
%var <- 99
assume (%var = 99) or barf "Var assignment doesn't work."
try: barf "barf"
..and if it succeeds: barf "try % and if it succeeds failed."
try: do nothing
..and if it barfs: barf "try % and if it barfs failed."
immediately
assume (%ONCE is (nil)) or barf "immediately is executing twice"
export %ONCE <- "ONCE"
%foo <- "immediately local"
assume (%ONCE = "ONCE") or barf "Globals don't work."
assume (%foo is (nil)) or barf "Immediately is leaking locals."
# Run per-file test suites
run file "tests/metaprogramming.nom"
run file "tests/text.nom"
run file "tests/operators.nom"
run file "tests/control_flow.nom"
run file "tests/math.nom"
run file "tests/collections.nom"
say "All tests passed!"
|
