fix extflonum-printing test when extflonums are disabled

The minimal suport for extflonums just preserves the text of the
input, so adjust the test to work for both.
This commit is contained in:
Matthew Flatt 2015-02-17 19:12:29 -07:00
parent a40afcd782
commit 54fb57d6b9

View File

@ -10,8 +10,8 @@
(test "+inf.t" format "~a" +inf.t)
(test "-inf.t" format "~a" -inf.t)
(test "+nan.t" format "~a" +nan.t)
(test "7.0t0" format "~a" 007.000t000)
(test "-7.0t0" format "~a" -007.000t000)
(test #t regexp-match? #rx"7[.]0*t0" (format "~a" 007.000t000))
(test #t regexp-match? #rx"-0*7[.]0*t0" (format "~a" -007.000t000))
(test #t extflonum? 7.t0)
(test #f extflonum? 7.0)
(test #f number? 7.t0)