math.ratios: Add unit tests for bug #668.

diff --git a/basis/math/ratios/ratios-tests.factor b/basis/math/ratios/ratios-tests.factor
index fa785111743facbedb33ea4e71ec2982aaa758dd..32c93824dff543ef520a5050d499a532c362b020 100644 (file)
--- a/basis/math/ratios/ratios-tests.factor
+++ b/basis/math/ratios/ratios-tests.factor
@@ -111,3 +111,8 @@ unit-test
 [ -3 ] [ "-1-1/2" string>number 2 * ] unit-test
 [ "2+1/7" ] [ 1 7 / 2 + number>string ] unit-test
 [ "1/8" ] [ 1 8 / number>string ] unit-test
+
+{ t } [ 2/3 dup number= ] unit-test
+{ t } [ 2/33333333333333333333333333333333 dup number= ] unit-test
+{ t } [ -2/3 dup number= ] unit-test
+{ t } [ -2/33333333333333333333333333333333 dup number= ] unit-test