From f40ae63f455724a33bb89b5d9e7a0362e62b2956 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 24 Nov 2008 21:15:22 +0000 Subject: [PATCH] R6RS test-suite patch from Taro Minowa (PR 9942) svn: r12580 --- collects/tests/r6rs/base.sls | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/collects/tests/r6rs/base.sls b/collects/tests/r6rs/base.sls index d39521ad9e..50bcf669e6 100644 --- a/collects/tests/r6rs/base.sls +++ b/collects/tests/r6rs/base.sls @@ -72,6 +72,10 @@ (syntax-rules () [(_ [str num] ...) (begin (test (string->number str) num) ...)])) + (define-syntax test/approx-string-to-number + (syntax-rules () + [(_ [str num] ...) (begin (test/approx (string->number str) num) ...)])) + ;; Definitions ---------------------------------------- (define add3 @@ -968,7 +972,9 @@ ("#e1e1000" (expt 10 1000)) ("#e-1e1000" (- (expt 10 1000))) ("#e1e-1000" (expt 10 -1000)) - ("#e-1e-1000" (- (expt 10 -1000))) + ("#e-1e-1000" (- (expt 10 -1000)))) + + (test/approx-string-to-number ("#i1e100" (inexact (expt 10 100))) ("#i1e1000" (inexact (expt 10 1000))) ("#i-1e1000" (inexact (- (expt 10 1000))))