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