[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.9-3-g3f315b6

[Mark H Weaver]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=3f315b64332a61535846dc87284e091bada747e5

The branch, stable-2.0 has been updated
       via  3f315b64332a61535846dc87284e091bada747e5 (commit)
      from  f480a98e9ac784e24e418ff307b67c22568a682e (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 3f315b64332a61535846dc87284e091bada747e5
Author: Mark H Weaver <address@hidden>
Date:   Sun Apr 14 01:50:47 2013 -0400

    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.

-----------------------------------------------------------------------

Summary of changes:
 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 8e3df5b..9b1c6c0 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"


hooks/post-receive
-- 
GNU Guile