diff options
Diffstat (limited to 'tests/control_flow.nom')
| -rw-r--r-- | tests/control_flow.nom | 23 |
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." |
