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

fix uni-norm.ss test suite

Browse Source 
svn: r7852
This commit is contained in:
Matthew Flatt 2007-11-28 16:21:26 +00:00
parent 92225ab6ad
commit 9a3f044337
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/tests/mzscheme/uni-norm.ss
View File

@ -1,7 +1,7 @@
(require (lib "string.ss")
(only (lib "url.ss" "net") get-pure-port string->url)
(only (lib "port.ss") copy-port))
(only-in (lib "url.ss" "net") get-pure-port string->url)
(only-in (lib "port.ss") copy-port))
(load-relative "loadtest.ss")
@ -31,7 +31,7 @@
'truncate)))
(or (existing)
(begin (get-it) (existing))
(error "file not found: ~s" file)))
(error "file not found: ~s" (string-append base name))))
(printf "Reading tests...\n")
(define test-strings
@ -44,7 +44,7 @@
(if (eof-object? l)
(if (null? a)
(error "No tests found (couldn't retreive tests?)")
(reverse! a))
(reverse a))
(let ([m (regexp-match #rx#"^([0-9A-F ]+);([0-9A-F ]+);([0-9A-F ]+);([0-9A-F ]+);([0-9A-F ]+)" l)])
(if m
(loop (cons (cons l (map parse-string (cdr m))) a))