Added string case-folding test.

2007-12-14 22:12:59 -05:00 · 2007-12-14 22:12:59 -05:00 · ab55602ed1
parent b2112ee9c8
commit ab55602ed1
2 changed files with 1039 additions and 1 deletions
--- a/scheme/run-tests.ss
+++ b/scheme/run-tests.ss
@ -33,6 +33,7 @@
        (tests fldiv-and-mod)
        (tests parse-flonums)
        (tests io)
+        (tests case-folding)
        )

 (define (test-exact-integer-sqrt)
@ -48,8 +49,9 @@
  (f 0 536870911000 536870911)
  (printf "[exact-integer-sqrt] Happy Happy Joy Joy\n"))

-(test-parse-flonums)

+(test-case-folding)
+(test-parse-flonums)
 (test-reader)
 (test-char-syntax)
 (test-bytevectors)
--- a/scheme/tests/case-folding.ss
+++ b/scheme/tests/case-folding.ss