Added unit tests

2008-01-12 21:39:22 -05:00 · 2008-01-12 21:39:22 -05:00 · beeb4a90a1
parent ede5bb9243
commit beeb4a90a1
1 changed files with 12 additions and 0 deletions
--- a/core/compiler/test/intrinsics.factor
+++ b/core/compiler/test/intrinsics.factor
@ -441,3 +441,15 @@ cell 8 = [
        ] keep 2 fixnum+fast
    ] compile-call
 ] unit-test
+
+[ 1 ] [
+    8 -3 [ fixnum-shift-fast ] compile-call
+] unit-test
+
+[ 2 ] [
+    16 -3 [ fixnum-shift-fast ] compile-call
+] unit-test
+
+[ 8 ] [
+    1 3 [ fixnum-shift-fast ] compile-call
+] unit-test