16 lines
410 B
Plaintext
16 lines
410 B
Plaintext
#!/usr/bin/env nomsu -V2.4.4.3
|
|
#
|
|
Tests for the stuff defined in core/errors.nom
|
|
|
|
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
|
|
try:
|
|
%x = 2
|
|
do (barf) then always (%x = 3)
|
|
..and if it barfs (do nothing)
|
|
|
|
assume (%x == 3) or barf "do/then always failed"
|
|
say "Error handling test passed." |