From 54fb57d6b96da38badee9d09b72a4a48635a20fd Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 17 Feb 2015 19:12:29 -0700 Subject: [PATCH] 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. --- pkgs/racket-test-core/tests/racket/extflonum.rktl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/pkgs/racket-test-core/tests/racket/extflonum.rktl b/pkgs/racket-test-core/tests/racket/extflonum.rktl index e1f9b635b5..e95922504b 100644 --- a/pkgs/racket-test-core/tests/racket/extflonum.rktl +++ b/pkgs/racket-test-core/tests/racket/extflonum.rktl @@ -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)