blob: 7f91c885a93e3cbdab7fcbd9d507c20e9e45f404 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
#!/usr/bin/env nomsu -V2.3.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."
|
