From 142fd53e909954c42f93088f92a79f523840db2c Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 3 Dec 2008 20:00:13 +0000
Subject: [PATCH] R6RS test suite: no BOM -> big-endian output

svn: r12689
---
 collects/tests/r6rs/io/ports.sls | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/collects/tests/r6rs/io/ports.sls b/collects/tests/r6rs/io/ports.sls
index ad12c2191f..9d1fe38157 100644
--- 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