math: adding a simple test for bignum_square.

diff --git a/core/math/math-tests.factor b/core/math/math-tests.factor
index fb25886e702fbdc2929c9f32a4e90caf22c4a02a..9dcba0e6d17099141d74ef753328e1592b33a643 100644 (file)
--- a/core/math/math-tests.factor
+++ b/core/math/math-tests.factor
@@ -93,3 +93,6 @@ IN: math.tests
 { 4 } [ 3 next-power-of-2 ] unit-test
 { 4 } [ 4 next-power-of-2 ] unit-test
 { 8 } [ 5 next-power-of-2 ] unit-test
+
+{ t } [ 128 2^ sq 256 2^ = ] unit-test
+{ t } [ 128 2^ neg sq 256 2^ = ] unit-test