suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

R6RS test-suite patch from Taro Minowa (PR 9942)

Browse Source 
svn: r12580
This commit is contained in:
Matthew Flatt 2008-11-24 21:15:22 +00:00
parent a0f91d905e
commit f40ae63f45
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/tests/r6rs/base.sls
View File

@ -72,6 +72,10 @@
(syntax-rules () (syntax-rules ()
[(_ [str num] ...) (begin (test (string->number str) num) ...)])) [(_ [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 ---------------------------------------- ;; Definitions ----------------------------------------
(define add3 (define add3
@ -968,7 +972,9 @@
("#e1e1000" (expt 10 1000)) ("#e1e1000" (expt 10 1000))
("#e-1e1000" (- (expt 10 1000))) ("#e-1e1000" (- (expt 10 1000)))
("#e1e-1000" (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))) ("#i1e100" (inexact (expt 10 100)))
("#i1e1000" (inexact (expt 10 1000))) ("#i1e1000" (inexact (expt 10 1000)))
("#i-1e1000" (inexact (- (expt 10 1000)))) ("#i-1e1000" (inexact (- (expt 10 1000))))