From 7dfe02385493c654e57e2a703f74f3e595a61bb2 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Wed, 17 Jun 2015 20:23:21 -0700 Subject: [PATCH] math.integers: add some more tests for bit?. --- core/math/integers/integers-tests.factor | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/core/math/integers/integers-tests.factor b/core/math/integers/integers-tests.factor index 5a10fd7a5c..ce85b6d31b 100644 --- a/core/math/integers/integers-tests.factor +++ b/core/math/integers/integers-tests.factor @@ -72,29 +72,37 @@ IN: math.integers.tests [ 8 ] [ 257 >bignum log2 ] unit-test [ 0 ] [ 1 >bignum log2 ] unit-test +[ f ] [ 0b1101 -1 bit? ] unit-test [ t ] [ 0b1101 0 bit? ] unit-test [ f ] [ 0b1101 1 bit? ] unit-test [ t ] [ 0b1101 2 bit? ] unit-test [ t ] [ 0b1101 3 bit? ] unit-test [ f ] [ 0b1101 4 bit? ] unit-test +[ f ] [ 0b1101 1000 bit? ] unit-test +[ f ] [ 0b1101 >bignum -1 bit? ] unit-test [ t ] [ 0b1101 >bignum 0 bit? ] unit-test [ f ] [ 0b1101 >bignum 1 bit? ] unit-test [ t ] [ 0b1101 >bignum 2 bit? ] unit-test [ t ] [ 0b1101 >bignum 3 bit? ] unit-test [ f ] [ 0b1101 >bignum 4 bit? ] unit-test +[ f ] [ 0b1101 >bignum 1000 bit? ] unit-test +[ t ] [ -0b1101 -1 bit? ] unit-test [ t ] [ -0b1101 0 bit? ] unit-test [ t ] [ -0b1101 1 bit? ] unit-test [ f ] [ -0b1101 2 bit? ] unit-test [ f ] [ -0b1101 3 bit? ] unit-test [ t ] [ -0b1101 4 bit? ] unit-test +[ t ] [ -0b1101 1000 bit? ] unit-test +[ t ] [ -0b1101 >bignum -1 bit? ] unit-test [ t ] [ -0b1101 >bignum 0 bit? ] unit-test [ t ] [ -0b1101 >bignum 1 bit? ] unit-test [ f ] [ -0b1101 >bignum 2 bit? ] unit-test [ f ] [ -0b1101 >bignum 3 bit? ] unit-test [ t ] [ -0b1101 >bignum 4 bit? ] unit-test +[ t ] [ -0b1101 >bignum 1000 bit? ] unit-test [ t ] [ 1067811677921310779 >bignum 59 bit? ] unit-test