2018-07-18 17:55:29 -07:00
|
|
|
#!/usr/bin/env nomsu -V2.4.4.3
|
2018-06-15 00:40:36 -07:00
|
|
|
#
|
|
|
|
|
Tests for the stuff defined in core/errors.nom
|
|
|
|
|
|
2018-07-18 01:27:56 -07:00
|
|
|
try (barf) and if it succeeds (barf "try failed.")
|
|
|
|
|
%worked = (no)
|
|
|
|
|
try (barf) and if it barfs (%worked = (yes))
|
2018-06-15 00:40:36 -07:00
|
|
|
assume %worked or barf "try/catch failed"
|
2018-07-18 01:27:56 -07:00
|
|
|
%x = 1
|
|
|
|
|
try:
|
|
|
|
|
%x = 2
|
|
|
|
|
do (barf) then always (%x = 3)
|
|
|
|
|
..and if it barfs (do nothing)
|
2018-06-15 00:40:36 -07:00
|
|
|
|
2018-07-18 01:27:56 -07:00
|
|
|
assume (%x == 3) or barf "do/then always failed"
|
|
|
|
|
say "Error handling test passed."
|
