[Guile-commits] GNU Guile branch, master, updated. release_1-9-11-259-g252f9f1

[Ludovic Courtès]

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=252f9f187ac8608ebcbf513bbbda49fc085f3a52

The branch, master has been updated
       via  252f9f187ac8608ebcbf513bbbda49fc085f3a52 (commit)
      from  b6dcf01abc85d2093986528d26ff4e3256d3f837 (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 252f9f187ac8608ebcbf513bbbda49fc085f3a52
Author: Ludovic Courtès <address@hidden>
Date:   Mon Aug 16 12:27:14 2010 +0200

    Fix i18n tests when no French locale is available.
    
    * test-suite/tests/i18n.test ("number->locale-string")["French"]: Move
      `under-french-locale-or-unresolved' within each `pass-if'.

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

Summary of changes:
 test-suite/tests/i18n.test |   27 ++++++++++++++++-----------
 1 files changed, 16 insertions(+), 11 deletions(-)

diff --git a/test-suite/tests/i18n.test b/test-suite/tests/i18n.test
index f0c9757..708075e 100644
--- a/test-suite/tests/i18n.test
+++ b/test-suite/tests/i18n.test
@@ -391,16 +391,21 @@
 
   (with-test-prefix "French"
 
-    (under-french-locale-or-unresolved
-     (lambda ()
-       (let ((fr (make-locale LC_ALL %french-locale-name)))
-
-        (pass-if "integer"
-          (string=? "123 456" (number->locale-string 123456 #t fr)))
+    (pass-if "integer"
+      (under-french-locale-or-unresolved
+       (lambda ()
+         (let ((fr (make-locale LC_ALL %french-locale-name)))
+           (string=? "123 456" (number->locale-string 123456 #t fr))))))
 
-        (pass-if "fraction"
-          (string=? "1 234,567" (number->locale-string 1234.567 #t fr)))
+    (pass-if "fraction"
+      (under-french-locale-or-unresolved
+       (lambda ()
+         (let ((fr (make-locale LC_ALL %french-locale-name)))
+           (string=? "1 234,567" (number->locale-string 1234.567 #t fr))))))
 
-        (pass-if "fraction, 1 digit"
-          (string=? "1 234,5"
-                    (number->locale-string 1234.567 1 fr))))))))
+    (pass-if "fraction, 1 digit"
+      (under-french-locale-or-unresolved
+       (lambda ()
+         (let ((fr (make-locale LC_ALL %french-locale-name)))
+           (string=? "1 234,5"
+                     (number->locale-string 1234.567 1 fr))))))))


hooks/post-receive
-- 
GNU Guile