Added unit tests
parent
ede5bb9243
commit
beeb4a90a1
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue