Merge remote-tracking branch 'origin/stable-2.0'

[bpt/guile.git] / test-suite / tests / ports.test

diff --git a/test-suite/tests/ports.test b/test-suite/tests/ports.test
index 8e3df5b..65c87da 100644 (file)
--- 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
-                                               #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)))
+    (bv-read-test "UTF-32" #vu8(#x00 #x00 #x00 #x61
+                                     #x00 #x00 #xFE #xFF
+                                     #x00 #x00 #x00 #x62)))
 
   (pass-if-equal "BOM discarded from start of UTF-32 stream (LE)"
       "a"