59 lines
1.1 KiB
Factor
59 lines
1.1 KiB
Factor
IN: temporary
|
|
USE: sequences
|
|
USE: errors
|
|
USE: kernel
|
|
USE: namespaces
|
|
USE: test
|
|
USE: parser
|
|
USE: io
|
|
USE: memory
|
|
USE: sbufs
|
|
|
|
[ clear drop ] unit-test-fails
|
|
|
|
[ f ] [ [ ] catch ] unit-test
|
|
|
|
[ 5 ] [ [ 5 throw ] catch ] unit-test
|
|
|
|
[ t ] [
|
|
[ "Hello" throw ] catch drop
|
|
global [ error get ] bind
|
|
"Hello" =
|
|
] unit-test
|
|
|
|
"!!! The following error is part of the test" print
|
|
|
|
[ ] [ [ 6 [ 12 [ "2 car" ] ] ] print-error ] unit-test
|
|
|
|
"!!! The following error is part of the test" print
|
|
|
|
[ [ "2 car" ] parse ] catch print-error
|
|
|
|
[ f throw ] unit-test-fails
|
|
|
|
! See how well callstack overflow is handled
|
|
: callstack-overflow callstack-overflow f ;
|
|
[ callstack-overflow ] unit-test-fails
|
|
|
|
! Weird PowerPC bug.
|
|
[ ] [
|
|
[ "4" throw ] catch drop
|
|
data-gc
|
|
data-gc
|
|
] unit-test
|
|
|
|
[ f ] [ { } kernel-error? ] unit-test
|
|
[ f ] [ { "A" "B" } kernel-error? ] unit-test
|
|
|
|
[ [ 3 throw ] ] [
|
|
[ 3 throw ] catch drop
|
|
error-continuation get continuation-call 3 tail* first
|
|
] unit-test
|
|
|
|
[ f [ 5 call 2 ] ] [
|
|
[ 5 call 2 ] catch drop
|
|
error-continuation get continuation-call 6 tail*
|
|
dup first over fourth eq?
|
|
swap fourth
|
|
] unit-test
|