[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.5-167-g27ea5
From: |
Ludovic Courtès |
Subject: |
[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.5-167-g27ea5c3 |
Date: |
Thu, 31 May 2012 13:56:17 +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=27ea5c3f31cd353b71e4691211082e8a8e36e730
The branch, stable-2.0 has been updated
via 27ea5c3f31cd353b71e4691211082e8a8e36e730 (commit)
from d3a1a74cb8764cf1f60e3d0eb0b5369cb05cf6b3 (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 27ea5c3f31cd353b71e4691211082e8a8e36e730
Author: Ludovic Courtès <address@hidden>
Date: Thu May 31 15:53:06 2012 +0200
Make `substitute' conversion strategy test portable.
* test-suite/tests/foreign.test
("pointer<->string")["%default-port-conversion-strategy
is soft"]: Split into the following tests.
["%default-port-conversion-strategy is escape",
"%default-port-conversion-strategy is substitute"]: New tests. In the
latter, add the escape form returned on FreeBSD 8.2 and Darwin 10.8.0.
-----------------------------------------------------------------------
Summary of changes:
test-suite/tests/foreign.test | 23 +++++++++++++++--------
1 files changed, 15 insertions(+), 8 deletions(-)
diff --git a/test-suite/tests/foreign.test b/test-suite/tests/foreign.test
index 14fad09..60d8630 100644
--- a/test-suite/tests/foreign.test
+++ b/test-suite/tests/foreign.test
@@ -167,15 +167,22 @@
(with-fluids ((%default-port-conversion-strategy 'error))
(string->pointer s "ISO-8859-1"))))
- (pass-if "%default-port-conversion-strategy is soft"
+ (pass-if "%default-port-conversion-strategy is escape"
(let ((s "teĥniko"))
- (equal? (map (lambda (strategy)
- (with-fluids ((%default-port-conversion-strategy
strategy))
- (pointer->string (string->pointer s "ISO-8859-1"))))
- '(substitute escape))
- (list "te?niko"
- (format #f "te\\u~4,'0xniko"
- (char->integer #\Ä¥))))))
+ (equal? (with-fluids ((%default-port-conversion-strategy 'escape))
+ (pointer->string (string->pointer s "ISO-8859-1")))
+ (format #f "te\\u~4,'0xniko"
+ (char->integer #\Ä¥)))))
+
+ (pass-if "%default-port-conversion-strategy is substitute"
+ (let ((s "teĥniko")
+ (member (negate (negate member))))
+ (member (with-fluids ((%default-port-conversion-strategy 'substitute))
+ (pointer->string (string->pointer s "ISO-8859-1")))
+ '("te?niko"
+
+ ;; This form is found on FreeBSD 8.2 and Darwin 10.8.0.
+ "te^hniko"))))
(pass-if "bijection"
(let ((s "hello, world"))
hooks/post-receive
--
GNU Guile
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.5-167-g27ea5c3,
Ludovic Courtès <=