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

adjust tests based on mistakes (as far as I can tell) in R6RS on string-titlecase and expt

Browse Source 
svn: r11184
This commit is contained in:
Matthew Flatt 2008-08-11 18:01:52 +00:00
parent c8f48cf6f0
commit 19ae0c3741
3 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/tests/r6rs/README.txt
View File

@ -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)

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

@ -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)

7
collects/tests/r6rs/unicode.sls
View File

@ -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<? "a" "Z") #t)
(test (string-ci<? "A" "z") #t)
(test (string-ci<? "Z" "a") #f)