From 19ae0c37412c11854cf309642af53296134d3ac1 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 11 Aug 2008 18:01:52 +0000 Subject: [PATCH] adjust tests based on mistakes (as far as I can tell) in R6RS on string-titlecase and expt svn: r11184 --- collects/tests/r6rs/README.txt | 2 +- collects/tests/r6rs/base.sls | 2 +- collects/tests/r6rs/unicode.sls | 7 ++----- 3 files changed, 4 insertions(+), 7 deletions(-) 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