Add unit test

2008-11-29 00:37:07 -06:00 · 2008-11-29 00:37:07 -06:00 · c1d249afb2
parent 67471dedac
commit c1d249afb2
1 changed files with 7 additions and 0 deletions
--- a/basis/compiler/tests/codegen.factor
+++ b/basis/compiler/tests/codegen.factor
@ -254,3 +254,10 @@ TUPLE: id obj ;
    { 1 2 3 4 }
    [ { array } declare 2 <groups> length ] compile-call
 ] unit-test
+
+! Oops with new intrinsics
+: fixnum-overflow-control-flow-test ( a b -- c )
+    [ 1 fixnum- ] [ 2 fixnum- ] if 3 fixnum+fast ;
+
+[ 3 ] [ 1 t fixnum-overflow-control-flow-test ] unit-test
+[ 2 ] [ 1 f fixnum-overflow-control-flow-test ] unit-test