diff --git a/library/test/test.factor b/library/test/test.factor index f34b1094c0..80790e3a7a 100644 --- a/library/test/test.factor +++ b/library/test/test.factor @@ -122,6 +122,7 @@ USE: unparser "x86-compiler/simple" "x86-compiler/ifte" "x86-compiler/generic" + "x86-compiler/bail-out" ] [ test ] each diff --git a/library/test/x86-compiler/bail-out.factor b/library/test/x86-compiler/bail-out.factor index ed83db3049..53242de9c1 100644 --- a/library/test/x86-compiler/bail-out.factor +++ b/library/test/x86-compiler/bail-out.factor @@ -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