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

R6RS test suite: no BOM -> big-endian output

Browse Source 
svn: r12689
This commit is contained in:
Matthew Flatt 2008-12-03 20:00:13 +00:00
parent 1f2ebbb58e
commit 142fd53e90
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/tests/r6rs/io/ports.sls
View File

@ -350,7 +350,11 @@
[(equal? b1 #xFF) [(equal? b1 #xFF)
(test (get-u8 p) #xFE) (test (get-u8 p) #xFE)
(test (get-u8 p) 97) (test (get-u8 p) 97)
(test (get-u8 p) 0)])) (test (get-u8 p) 0)]
[else
;; Must be big-endian
(test (get-u8) 0)
(test (get-u8) (char->integer #\a))]))
(test/unspec (close-port p))) (test/unspec (close-port p)))
(let ([bytevector->string-via-file (let ([bytevector->string-via-file