summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--test-suite/tests/ports.test14
1 files changed, 2 insertions, 12 deletions
diff --git a/test-suite/tests/ports.test b/test-suite/tests/ports.test
index 8e3df5b00..9b1c6c0fc 100644
--- a/test-suite/tests/ports.test
+++ b/test-suite/tests/ports.test
@@ -1686,11 +1686,7 @@
(pass-if-equal "BOM not discarded unless at start of UTF-16 stream"
"a\uFEFFb"
- (let ((be (bv-read-test "utf-16" #vu8(#x00 #x61 #xFE #xFF #x00 #x62)))
- (le (bv-read-test "utf-16" #vu8(#x61 #x00 #xFF #xFE #x62 #x00))))
- (if (char=? #\a (string-ref be 0))
- be
- le)))
+ (bv-read-test "utf-16" #vu8(#x00 #x61 #xFE #xFF #x00 #x62)))
(pass-if-equal "BOM discarded from start of UTF-16 stream (LE)"
"a"
@@ -1777,15 +1773,9 @@
(pass-if-equal "BOM not discarded unless at start of UTF-32 stream"
"a\uFEFFb"
- (let ((be (bv-read-test "UTF-32" #vu8(#x00 #x00 #x00 #x61
+ (bv-read-test "UTF-32" #vu8(#x00 #x00 #x00 #x61
#x00 #x00 #xFE #xFF
#x00 #x00 #x00 #x62)))
- (le (bv-read-test "UTF-32" #vu8(#x61 #x00 #x00 #x00
- #xFF #xFE #x00 #x00
- #x62 #x00 #x00 #x00))))
- (if (char=? #\a (string-ref be 0))
- be
- le)))
(pass-if-equal "BOM discarded from start of UTF-32 stream (LE)"
"a"