Add a unit test
parent
721c3f2ec9
commit
d0e5c585f5
|
@ -283,3 +283,8 @@ cell-bits 32 = [
|
|||
[ B{ 1 0 } *short dup number? [ 0 number= ] [ drop f ] if ]
|
||||
\ number= inlined?
|
||||
] unit-test
|
||||
|
||||
[ t ] [
|
||||
[ HEX: ff bitand 0 HEX: ff between? ]
|
||||
\ >= inlined?
|
||||
] unit-test
|
||||
|
|
Loading…
Reference in New Issue