aboutsummaryrefslogtreecommitdiff
path: root/tests/control_flow.nom
diff options
context:
space:
mode:
Diffstat (limited to 'tests/control_flow.nom')
-rw-r--r--tests/control_flow.nom23
1 files changed, 2 insertions, 21 deletions
diff --git a/tests/control_flow.nom b/tests/control_flow.nom
index 238bcbf..56c99a0 100644
--- a/tests/control_flow.nom
+++ b/tests/control_flow.nom
@@ -159,32 +159,11 @@ when 5 = ?
* else: %when_worked <- (yes)
assume %when_worked
-try: barf
-..and if it succeeds: barf "try failed."
-
-%worked <- (no)
-try: barf
-..and if it barfs: %worked <- (yes)
-assume %worked or barf "try/catch failed"
-
%x <- 1
do
%x <- 2
assume (%x = 2) or barf "'do' is redefining locals"
-%x <- 1
-try
- %x <- 2
- do
- barf
- ..then always
- %x <- 3
-..and if it barfs: do nothing
-lua> "collectgarbage()"
-assume (%x = 3) or barf "do/then always failed"
-
-say "Control flow test passed."
-
assume
(..)
result of
@@ -192,4 +171,6 @@ assume
for % in [1,2,3]: %n +<- %
return %n
..= 6
+..or barf "'result of %' failed"
+say "Control flow test passed."