[Guile-commits] GNU Guile branch, master, updated. release_1-9-3-65-gd71db1f

[Michael Gran]

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=d71db1f9a984b8bbd5879bd09a98ac2444ea7eb2

The branch, master has been updated
       via  d71db1f9a984b8bbd5879bd09a98ac2444ea7eb2 (commit)
      from  03d80c0327de6e38dec6c3c64759e4011ed890a5 (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 d71db1f9a984b8bbd5879bd09a98ac2444ea7eb2
Author: Michael Gran <address@hidden>
Date:   Mon Oct 12 06:55:25 2009 -0700

    Modify regexp.test to work better with mac/darwin
    
    * test-suite/tests/regexp.test (set-latin-1): also add .ISO8859-1 as a
      possible extension for latin-1 locales.  Use set-latin-1 exclusively
      to set the locale for tests.

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

Summary of changes:
 test-suite/tests/regexp.test |    8 ++++++--
 1 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/test-suite/tests/regexp.test b/test-suite/tests/regexp.test
index d840f04..422d8f3 100644
--- a/test-suite/tests/regexp.test
+++ b/test-suite/tests/regexp.test
@@ -56,7 +56,11 @@
           '("fr_FR" "es_MX" "es_ES" "en_GB" "en_US" "de_DE" "pt_PT"))
      (map (lambda (name)
             (string-append name ".iso88591"))
-          '("fr_FR" "es_MX" "es_ES" "en_GB" "en_US" "de_DE" "pt_PT"))))
+          '("fr_FR" "es_MX" "es_ES" "en_GB" "en_US" "de_DE" "pt_PT"))
+     (map (lambda (name)
+            (string-append name ".ISO8859-1"))
+          '("fr_FR" "es_MX" "es_ES" "en_GB" "en_US" "de_DE" "pt_PT"))
+     ))
    (begin
      (false-if-exception (set-port-encoding! (current-input-port) 
                                              "ISO-8859-1"))
@@ -226,7 +230,7 @@
                          (= 2 (match:end m)))))))
 
           (pass-if "string of all chars"
-             (setbinary)
+             (set-latin-1)
              (let ((m (regexp-exec (make-regexp (regexp-quote allchars)
                                                 flag) allchars)))
                (and (= 0 (match:start m))


hooks/post-receive
-- 
GNU Guile