Add a unit test

db4
Slava Pestov 2008-02-16 18:47:53 -06:00
parent 721c3f2ec9
commit d0e5c585f5
1 changed files with 5 additions and 0 deletions

View File

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