From 309ce3aa691bd303a8974db2638ce56d0ff8b953 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Fri, 6 Jun 2014 10:58:58 -0700 Subject: [PATCH] math: adding a simple test for bignum_square. --- core/math/math-tests.factor | 3 +++ 1 file changed, 3 insertions(+) diff --git a/core/math/math-tests.factor b/core/math/math-tests.factor index fb25886e70..9dcba0e6d1 100644 --- 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