diff options
-rw-r--r-- | test-suite/tests/ports.test | 14 |
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" |