diff options
author | Mark H Weaver <mhw@netris.org> | 2013-04-14 01:50:47 -0400 |
---|---|---|
committer | Mark H Weaver <mhw@netris.org> | 2013-04-14 01:50:47 -0400 |
commit | 3f315b64332a61535846dc87284e091bada747e5 (patch) | |
tree | 2475ffc7614bc4e178007543acbd6658b5a39da9 | |
parent | f480a98e9ac784e24e418ff307b67c22568a682e (diff) | |
download | guile-3f315b64332a61535846dc87284e091bada747e5.tar.gz |
Adjust BOM tests to reflect the fact that big endian is used by default.
* test-suite/tests/ports.test ("BOM not discarded unless at start of
UTF-16 stream", "BOM not discarded unless at start of UTF-32 stream"):
Adjust tests to reflect the fact that, in the absence of a BOM, big
endian will be used by default for the "UTF-16" and "UTF-32"
encodings.
-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" |