[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.7-277-g9a31a
From: |
Mark H Weaver |
Subject: |
[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.7-277-g9a31a54 |
Date: |
Wed, 03 Apr 2013 00:50:03 +0000 |
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=9a31a54561b859dfbaca4f4523252a76adb56386
The branch, stable-2.0 has been updated
via 9a31a54561b859dfbaca4f4523252a76adb56386 (commit)
from e00793d7a986053976c088f4aa4088c4d648825d (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 9a31a54561b859dfbaca4f4523252a76adb56386
Author: Mark H Weaver <address@hidden>
Date: Tue Apr 2 20:47:30 2013 -0400
Remove BOM tests that depend on GNU iconv behavior.
* test-suite/tests/ports.test ("unicode byte-order marks (BOMs)"):
Remove tests that depend on GNU iconv behavior. We will add them back
when we have portable BOM support.
-----------------------------------------------------------------------
Summary of changes:
test-suite/tests/ports.test | 92 -------------------------------------------
1 files changed, 0 insertions(+), 92 deletions(-)
diff --git a/test-suite/tests/ports.test b/test-suite/tests/ports.test
index c73e6be..886ab24 100644
--- a/test-suite/tests/ports.test
+++ b/test-suite/tests/ports.test
@@ -1149,98 +1149,6 @@
-(define (bv-read-test encoding bv)
- (let ((port (open-bytevector-input-port bv)))
- (set-port-encoding! port encoding)
- (read-string port)))
-
-(with-test-prefix "unicode byte-order marks (BOMs)"
-
- (pass-if-equal "BOM not discarded from Latin-1 stream"
- "\xEF\xBB\xBF\x61"
- (bv-read-test "ISO-8859-1" #vu8(#xEF #xBB #xBF #x61)))
-
- (pass-if-equal "BOM not discarded from Latin-2 stream"
- "\u010F\u0165\u017C\x61"
- (bv-read-test "ISO-8859-2" #vu8(#xEF #xBB #xBF #x61)))
-
- (pass-if-equal "BOM not discarded from UTF-16BE stream"
- "\uFEFF\x61"
- (bv-read-test "UTF-16BE" #vu8(#xFE #xFF #x00 #x61)))
-
- (pass-if-equal "BOM not discarded from UTF-16LE stream"
- "\uFEFF\x61"
- (bv-read-test "UTF-16LE" #vu8(#xFF #xFE #x61 #x00)))
-
- (pass-if-equal "BOM not discarded from UTF-32BE stream"
- "\uFEFF\x61"
- (bv-read-test "UTF-32BE" #vu8(#x00 #x00 #xFE #xFF
- #x00 #x00 #x00 #x61)))
-
- (pass-if-equal "BOM not discarded from UTF-32LE stream"
- "\uFEFF\x61"
- (bv-read-test "UTF-32LE" #vu8(#xFF #xFE #x00 #x00
- #x61 #x00 #x00 #x00)))
-
- (pass-if-equal "BOM discarded from start of UTF-16 stream (BE)"
- "a"
- (bv-read-test "UTF-16" #vu8(#xFE #xFF #x00 #x61)))
-
- (pass-if-equal "Only one BOM discarded from start of UTF-16 stream (BE)"
- "\uFEFFa"
- (bv-read-test "UTF-16" #vu8(#xFE #xFF #xFE #xFF #x00 #x61)))
-
- (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)))
-
- (pass-if-equal "BOM discarded from start of UTF-16 stream (LE)"
- "a"
- (bv-read-test "UTF-16" #vu8(#xFF #xFE #x61 #x00)))
-
- (pass-if-equal "Only one BOM discarded from start of UTF-16 stream (LE)"
- "\uFEFFa"
- (bv-read-test "UTF-16" #vu8(#xFF #xFE #xFF #xFE #x61 #x00)))
-
- (pass-if-equal "BOM discarded from start of UTF-32 stream (BE)"
- "a"
- (bv-read-test "UTF-32" #vu8(#x00 #x00 #xFE #xFF #x00 #x00 #x00 #x61)))
-
- (pass-if-equal "Only one BOM discarded from start of UTF-32 stream (BE)"
- "\uFEFFa"
- (bv-read-test "UTF-32" #vu8(#x00 #x00 #xFE #xFF
- #x00 #x00 #xFE #xFF
- #x00 #x00 #x00 #x61)))
-
- (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)))
-
- (pass-if-equal "BOM discarded from start of UTF-32 stream (LE)"
- "a"
- (bv-read-test "UTF-32" #vu8(#xFF #xFE #x00 #x00
- #x61 #x00 #x00 #x00)))
-
- (pass-if-equal "Only one BOM discarded from start of UTF-32 stream (LE)"
- "\uFEFFa"
- (bv-read-test "UTF-32" #vu8(#xFF #xFE #x00 #x00
- #xFF #xFE #x00 #x00
- #x61 #x00 #x00 #x00))))
-
-
-
(define-syntax-rule (with-load-path path body ...)
(let ((new path)
(old %load-path))
hooks/post-receive
--
GNU Guile
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.7-277-g9a31a54,
Mark H Weaver <=