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

adjust string-conversion test for constrained locales

Browse Source
This commit is contained in:
Matthew Flatt 2021-05-08 10:19:44 -06:00
parent d14c454096
commit e0063a9495
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
pkgs/racket-test-core/tests/racket/foreign-test.rktl
View File

@ -1422,14 +1422,15 @@
;; ----------------------------------------
(define (try-strings _t-list
#:latin-1? [latin-1? (not (equal? (locale-string-encoding) "UTF-8"))]
#:latin-1? [latin-1? #f]
#:bytes? [as-bytes? #f]
#:add-nul? [add-nul? #f])
(define l (map
(if as-bytes? string->bytes/utf-8 values)
(if latin-1?
'("apple" "banana" "\xFF")
'("apple" "banana" "\u3BB x . x" "(\U1F600)"))))
(cond
[latin-1? '("apple" "banana" "\xFF")]
[(not (equal? (locale-string-encoding) "UTF-8")) '("apple" "banana")]
[else '("apple" "banana" "\u3BB x . x" "(\U1F600)")])))
(define l2 (cast (cast (if add-nul?
(map (lambda (bstr) (bytes-append bstr #"\0")) l)
l)