fix tests
parent
166817bd45
commit
c987599a50
|
@ -122,6 +122,7 @@ USE: unparser
|
|||
"x86-compiler/simple"
|
||||
"x86-compiler/ifte"
|
||||
"x86-compiler/generic"
|
||||
"x86-compiler/bail-out"
|
||||
] [
|
||||
test
|
||||
] each
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue