From d0e5c585f535876ba86c0df5bc8059315e34e1a1 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Sat, 16 Feb 2008 18:47:53 -0600 Subject: [PATCH] Add a unit test --- core/inference/class/class-tests.factor | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/core/inference/class/class-tests.factor b/core/inference/class/class-tests.factor index b77661b899..691010e9ca 100755 --- 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