mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-22 04:30:19 +02:00
Code Activity

Modify regexp.test to work better with mac/darwin

Browse source 
* 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.
This commit is contained in:
Michael Gran 2009-10-12 06:55:25 -07:00
parent 03d80c0327
commit d71db1f9a9
1 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
test-suite/tests/regexp.test
View file

@ -56,7 +56,11 @@
'("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) (map (lambda (name)
(string-append name ".iso88591")) (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 (begin
(false-if-exception (set-port-encoding! (current-input-port) (false-if-exception (set-port-encoding! (current-input-port)
"ISO-8859-1")) "ISO-8859-1"))
@ -226,7 +230,7 @@
(= 2 (match:end m))))))) (= 2 (match:end m)))))))
(pass-if "string of all chars" (pass-if "string of all chars"
(setbinary) (set-latin-1)
(let ((m (regexp-exec (make-regexp (regexp-quote allchars) (let ((m (regexp-exec (make-regexp (regexp-quote allchars)
flag) allchars))) flag) allchars)))
(and (= 0 (match:start m)) (and (= 0 (match:start m))