From e0063a9495d1a1f657869ae281240e9985b7d055 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 8 May 2021 10:19:44 -0600 Subject: [PATCH] adjust string-conversion test for constrained locales --- pkgs/racket-test-core/tests/racket/foreign-test.rktl | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/pkgs/racket-test-core/tests/racket/foreign-test.rktl b/pkgs/racket-test-core/tests/racket/foreign-test.rktl index 4b8e4f743f..5842092b14 100644 --- a/pkgs/racket-test-core/tests/racket/foreign-test.rktl +++ b/pkgs/racket-test-core/tests/racket/foreign-test.rktl @@ -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)