diff --git a/collects/tests/r6rs/README.txt b/collects/tests/r6rs/README.txt index bff52b93e1..4b9aa45750 100644 --- a/collects/tests/r6rs/README.txt +++ b/collects/tests/r6rs/README.txt @@ -108,7 +108,7 @@ perhaps in the location reported by (version) "collects" "tests" "r6rs") -Two tests fail; they correspond to documented non-conformance with +Four tests fail; they correspond to documented non-conformance with R6RS. Ypsilon (version 0.9.6) diff --git a/collects/tests/r6rs/base.sls b/collects/tests/r6rs/base.sls index b437859c24..a345f98240 100644 --- a/collects/tests/r6rs/base.sls +++ b/collects/tests/r6rs/base.sls @@ -866,7 +866,7 @@ (test (expt 5 -3) 1/125) (test (expt 5 0) 1) (test (expt 0 5) 0) - (test (expt 0 5+.0000312i) 0) + (test/approx (expt 0 5+.0000312i) 0.0) ; R6RS (Sept 2007) appears to be wrong; also, test that result is inexact? (test/unspec-or-exn (expt 0 -5) &implementation-restriction) (test/unspec-or-exn (expt 0 -5+.0000312i) &implementation-restriction) (test (expt 0 0) 1) diff --git a/collects/tests/r6rs/unicode.sls b/collects/tests/r6rs/unicode.sls index 956e79215d..208cb55739 100644 --- a/collects/tests/r6rs/unicode.sls +++ b/collects/tests/r6rs/unicode.sls @@ -95,14 +95,11 @@ (test (string-titlecase "kNock KNoCK") "Knock Knock") (test (string-titlecase "who's there?") "Who's There?") - (test (string-titlecase "r6rs") "R6Rs") - (test (string-titlecase "R6RS") "R6Rs") + (test (string-titlecase "r6rs") "R6rs") ; this example appears to be wrong in R6RS (Sept 2007 version) + (test (string-titlecase "R6RS") "R6rs") ; this one, too (test (string-downcase "A\x3A3;'x") "a\x3C3;'x") ; ' is a MidLetter - ;; There should be a test here that fails on PLT Scheme based on word-breaking - ;; according to Unicode Annex 29 --- but I can't figure out out. - (test (string-ci