Added unit tests

db4
Slava Pestov 2008-01-12 21:39:22 -05:00
parent ede5bb9243
commit beeb4a90a1
1 changed files with 12 additions and 0 deletions

View File

@ -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