math: adding some tests for bignum bitnot.

diff --git a/core/math/math-tests.factor b/core/math/math-tests.factor
index 8cbc951a36e36d38d95fbeada1690ca4ba8e4447..1a729fcef4db8dd4d1e5766ed468fc3b809f746b 100644 (file)
--- a/core/math/math-tests.factor
+++ b/core/math/math-tests.factor
@@ -79,3 +79,10 @@ IN: math.tests
 [ t ] [ -0.0 neg? ] unit-test
 [ t ] [ -1.0 neg? ] unit-test
 [ t ] [ -1/0. neg? ] unit-test
+
+{ -0x3fffffff } [ 0x3ffffffe >bignum bitnot ] unit-test
+{ -0x40000000 } [ 0x3fffffff >bignum bitnot ] unit-test
+{ -0x40000001 } [ 0x40000000 >bignum bitnot ] unit-test
+{ -0x3fffffffffffffff } [ 0x3ffffffffffffffe >bignum bitnot ] unit-test
+{ -0x4000000000000000 } [ 0x3fffffffffffffff >bignum bitnot ] unit-test
+{ -0x4000000000000001 } [ 0x4000000000000000 >bignum bitnot ] unit-test