From 2282007334c5f3e1eda6cc6221655bed82ffabf4 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Tue, 11 Sep 2012 08:16:25 -0700 Subject: [PATCH] math.ratios: Add unit tests for bug #668. --- basis/math/ratios/ratios-tests.factor | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/basis/math/ratios/ratios-tests.factor b/basis/math/ratios/ratios-tests.factor index fa78511174..32c93824df 100644 --- 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