]> gitweb.factorcode.org Git - factor.git/commitdiff
math.parser: fix tests for 0.0 0.0 / platform dependent result.
authorJohn Benediktsson <mrjbq7@gmail.com>
Tue, 2 Mar 2021 19:20:34 +0000 (11:20 -0800)
committerJohn Benediktsson <mrjbq7@gmail.com>
Tue, 2 Mar 2021 19:20:53 +0000 (11:20 -0800)
core/math/parser/parser-tests.factor

index 9022fc7f59c76cfdc87fbd4260474f961a5da954..4235153295dde5637e460e0a3913972a547042b4 100644 (file)
@@ -198,10 +198,8 @@ unit-test
 [ 2+1/2 -1 >base ] [ invalid-radix? ] must-fail-with
 [ 123.456 7 >base ] [ invalid-radix? ] must-fail-with
 
-{ "0/0." } [ 0.0 0.0 / number>string ] unit-test
-
-{  "0/0." } [ 0.0 0.0 / ?pos number>string ] unit-test
-{ "-0/0." } [ 0.0 0.0 / ?neg number>string ] unit-test
+{  "0/0." } [ 0/0. number>string ] unit-test
+{ "-0/0." } [ -0/0. number>string ] unit-test
 
 { t } [  "0/0." string>number fp-nan? ] unit-test
 { t } [ "-0/0." string>number fp-nan? ] unit-test
@@ -209,13 +207,11 @@ unit-test
 { f } [  "0/0." string>number fp-sign ] unit-test
 { t } [ "-0/0." string>number fp-sign ] unit-test
 
-{ "1/0." } [ 1.0 0.0 / number>string ] unit-test
-
-{ "-1/0." } [ -1.0 0.0 / number>string ] unit-test
-
 
+{ "1/0." } [ 1/0. number>string ] unit-test
 { 1/0. } [ "1/0." string>number ] unit-test
 
+{ "-1/0." } [ -1/0. number>string ] unit-test
 { -1/0. } [ "-1/0." string>number ] unit-test
 
 { -0.5 } [ "-1/2." string>number ] unit-test