guile-commits
[Top][All Lists]
Advanced

[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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]