steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
library/test/test.factor
View File

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

8
library/test/x86-compiler/bail-out.factor
View File

@ -7,9 +7,9 @@ USE: math
USE: stack USE: stack
USE: test USE: test
: cannot-compile call + ; : bail-out call + ;
[ f ] [ [ \ cannot-compile compile ] [ not ] catch ] unit-test [ f ] [ [ \ bail-out compile ] [ not ] catch ] unit-test
[ f ] [ [ \ cannot-compile 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