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:
parent
a40afcd782
commit
54fb57d6b9
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue
Block a user