Add a unit test

2008-02-16 18:47:53 -06:00 · 2008-02-16 18:47:53 -06:00 · d0e5c585f5
parent 721c3f2ec9
commit d0e5c585f5
1 changed files with 5 additions and 0 deletions
--- a/core/inference/class/class-tests.factor
+++ b/core/inference/class/class-tests.factor
@ -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