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

added test for bytes<->string/locale

Browse Source 
svn: r267
This commit is contained in:
Matthew Flatt 2005-06-28 20:49:40 +00:00
parent cd014b9c40
commit 1951afa0a5
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/tests/mzscheme/unicode.ss
View File

@ -1428,4 +1428,11 @@
(cons (integer->char i) (loop (add1 i)))))))
;; ----------------------------------------
;; Whatever bytes->string/locale does with a bad locale, it shouldn't crash
(parameterize ([current-locale "no such locale"])
(with-handlers ([exn:fail:contract? void]) (bytes->string/locale #"xxx"))
(with-handlers ([exn:fail:contract? void]) (string->bytes/locale "xxx")))
(report-errs)