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

svn: r12689
2008-12-03 20:00:13 +00:00 · 2008-12-03 20:00:13 +00:00 · 142fd53e90
commit 142fd53e90
parent 1f2ebbb58e
1 changed files with 5 additions and 1 deletions
--- a/collects/tests/r6rs/io/ports.sls
+++ b/collects/tests/r6rs/io/ports.sls
@ -350,7 +350,11 @@
        [(equal? b1 #xFF)
         (test (get-u8 p) #xFE)
         (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)))

    (let ([bytevector->string-via-file