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

db4
Doug Coleman 2012-09-11 08:16:25 -07:00
parent e72e1a340f
commit 2282007334
1 changed files with 5 additions and 0 deletions

View File

@ -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