fix tests

cvs
Slava Pestov 2004-11-04 04:42:48 +00:00
parent 166817bd45
commit c987599a50
2 changed files with 5 additions and 4 deletions

View File

@ -122,6 +122,7 @@ USE: unparser
"x86-compiler/simple"
"x86-compiler/ifte"
"x86-compiler/generic"
"x86-compiler/bail-out"
] [
test
] each

View File

@ -7,9 +7,9 @@ USE: math
USE: stack
USE: test
: cannot-compile call + ;
: bail-out call + ;
[ f ] [ [ \ cannot-compile compile ] [ not ] catch ] unit-test
[ f ] [ [ \ cannot-compile compile ] [ not ] catch ] unit-test
[ f ] [ [ \ bail-out compile ] [ not ] catch ] unit-test
[ f ] [ [ \ bail-out compile ] [ not ] catch ] unit-test
[ 4 ] [ [ 2 2 ] cannot-compile ] unit-test
[ 4 ] [ [ 2 2 ] bail-out ] unit-test