2005-03-28 23:45:13 -05:00
|
|
|
IN: temporary
|
2004-08-16 21:11:27 -04:00
|
|
|
USE: errors
|
|
|
|
|
USE: kernel
|
|
|
|
|
USE: namespaces
|
|
|
|
|
USE: test
|
2004-11-25 20:37:05 -05:00
|
|
|
USE: lists
|
2004-11-25 23:14:17 -05:00
|
|
|
USE: parser
|
|
|
|
|
USE: stdio
|
2004-08-16 21:11:27 -04:00
|
|
|
|
|
|
|
|
[ f ] [ [ ] [ ] catch ] unit-test
|
|
|
|
|
|
|
|
|
|
[ 5 ] [ [ 5 throw ] [ ] catch ] unit-test
|
|
|
|
|
|
|
|
|
|
[ t ] [
|
|
|
|
|
[ "Hello" throw ] [ drop ] catch
|
|
|
|
|
global [ "error" get ] bind
|
|
|
|
|
"Hello" =
|
|
|
|
|
] unit-test
|
2004-11-25 20:37:05 -05:00
|
|
|
|
2004-11-25 23:14:17 -05:00
|
|
|
"!!! The following error is part of the test" print
|
|
|
|
|
|
2004-12-25 21:28:47 -05:00
|
|
|
[ ] [ [ 6 [ 12 [ "2 car" ] ] ] print-error ] unit-test
|
2004-11-25 23:14:17 -05:00
|
|
|
|
|
|
|
|
"!!! The following error is part of the test" print
|
|
|
|
|
|
2004-12-25 21:28:47 -05:00
|
|
|
[ [ "2 car" ] parse ] [ print-error ] catch
|
2004-12-22 22:16:46 -05:00
|
|
|
|
2005-04-03 19:02:50 -04:00
|
|
|
! This should not raise an error
|
2005-04-05 22:18:36 -04:00
|
|
|
[ 1 2 3 ] [ 1 2 3 f throw ] unit-test
|
