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

skip reencode test if converter is not available

Browse Source 
svn: r3725
This commit is contained in:
Matthew Flatt 2006-07-16 13:01:31 +00:00
parent 721cdd300b
commit 1330db7577
1 changed files with 22 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
collects/tests/mzscheme/portlib.ss
View File

@ -491,7 +491,12 @@
;; ---------------------------------------- ;; ----------------------------------------
;; Conversion wrappers ;; Conversion wrappers
(define (try-eip-seq encoding bytes try-map) (define (try-eip-seq encoding only-if-avail? bytes try-map)
(when (or (not only-if-avail?)
(let ([c (bytes-open-converter "UTF-8" encoding)])
(and c
(bytes-close-converter c)
#t)))
(let* ([p (open-input-bytes bytes)] (let* ([p (open-input-bytes bytes)]
[p2 (reencode-input-port p encoding #".!")]) [p2 (reencode-input-port p encoding #".!")])
(for-each (lambda (one-try) (for-each (lambda (one-try)
@ -501,14 +506,14 @@
[len (cadr one-try)] [len (cadr one-try)]
[expect (caddr one-try)]) [expect (caddr one-try)])
(test expect read-bytes len p))) (test expect read-bytes len p)))
try-map))) try-map))))
(try-eip-seq "UTF-8" #"apple" `((#t 3 #"app") (#f 2 #"le") (#t 4 ,eof))) (try-eip-seq "UTF-8" #f #"apple" `((#t 3 #"app") (#f 2 #"le") (#t 4 ,eof)))
(try-eip-seq "UTF-8" #"ap\303\251ple" `((#t 3 #"ap\303") (#f 2 #"pl") (#t 4 #"\251e") (#t 5 ,eof))) (try-eip-seq "UTF-8" #f #"ap\303\251ple" `((#t 3 #"ap\303") (#f 2 #"pl") (#t 4 #"\251e") (#t 5 ,eof)))
(try-eip-seq "ISO-8859-1" #"ap\303\251ple" `((#t 3 #"ap\303") (#f 2 #"\251p") (#t 4 #"\203le") (#t 5 ,eof))) (try-eip-seq "ISO-8859-1" #t #"ap\303\251ple" `((#t 3 #"ap\303") (#f 2 #"\251p") (#t 4 #"\203le") (#t 5 ,eof)))
(try-eip-seq "UTF-8" #"ap\251ple" `((#t 2 #"ap") (#f 2 #"\251p") (#t 4 #"le") (#t 5 ,eof))) (try-eip-seq "UTF-8" #f #"ap\251ple" `((#t 2 #"ap") (#f 2 #"\251p") (#t 4 #"le") (#t 5 ,eof)))
(try-eip-seq "UTF-8" #"ap\251ple" `((#t 3 #"ap.") (#f 1 #"p") (#t 4 #"!le") (#t 5 ,eof))) (try-eip-seq "UTF-8" #f #"ap\251ple" `((#t 3 #"ap.") (#f 1 #"p") (#t 4 #"!le") (#t 5 ,eof)))
(try-eip-seq "UTF-8" #"ap\251ple" `((#t 4 #"ap.!") (#f 1 #"l") (#t 4 #"pe") (#t 5 ,eof))) (try-eip-seq "UTF-8" #f #"ap\251ple" `((#t 4 #"ap.!") (#f 1 #"l") (#t 4 #"pe") (#t 5 ,eof)))
(let-values ([(in out) (make-pipe-with-specials)]) (let-values ([(in out) (make-pipe-with-specials)])
(display "ok" out) (display "ok" out)