23 lines
402 B
Plaintext
23 lines
402 B
Plaintext
#
|
|
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."
|