Subject: bug#10684: guile-2.0.5 test failures on powerpc-darwin8

From: David Fang <[email-masked]>
Date: Wed, 1 Feb 2012 17:56:09 -0500 (EST)

> Hi David,
>
> David Fang <[email-masked]> skribis:
>
>> FAIL: i18n.test: character mapping: char-locale-upcase Turkish
>> FAIL: i18n.test: character mapping: char-locale-downcase Turkish
>> FAIL: i18n.test: string mapping: string-locale-upcase Turkish
>> FAIL: i18n.test: string mapping: string-locale-downcase Turkish
>
> This most likely indicates that Darwin 8 has incorrect case mapping data
> for the Turkish locale.
>
> Can you try this (in a UTF-8 terminal):
>
>  (use-modules (ice-9 i18n))
>  (setlocale LC_ALL "tr_TR.UTF-8")
>  (char-locale-upcase #\i)

fang% guile-2.0
GNU Guile 2.0.5
Copyright (C) 1995-2012 Free Software Foundation, Inc.

Guile comes with ABSOLUTELY NO WARRANTY; for details type `,show w'.
This program is free software, and you are welcome to redistribute it
under certain conditions; type `,show c' for details.

Enter `,help' for help.
scheme@(guile-user)> (use-modules (ice-9 i18n))
scheme@(guile-user)> (setlocale LC_ALL "tr_TR.UTF-8")
$1 = "tr_TR.UTF-8"
scheme@(guile-user)> (char-locale-upcase #\i)
$2 = #\I
scheme@(guile-user)>

Does that look right?

>> FAIL: net-db.test: getaddrinfo: wrong service name
>
> Can you try this:
>
>  (getaddrinfo "127.0.0.1" "does-not-exist" AI_NUMERICHOST)

scheme@(guile-user)> (getaddrinfo "127.0.0.1" "does-not-exist" 
AI_NUMERICHOST)
ERROR: In procedure getaddrinfo:
ERROR: In procedure getaddrinfo: No address associated with nodename

Entering a new prompt.  Type `,bt' for a backtrace or `,q' to continue.

>> ERROR: regexp.test: regexp-quote: regexp/extended: (char 254 #\þ
>> "þ") -
>> arguments: ((regular-expression-syntax "make-regexp" "empty
>> (sub)expression" #f ("þ")))
>
> Hm?
>
>> FAIL: regexp.test: regexp-quote: regexp/extended: (string "aX" 254
>> #\þ "aþ" "aþ")
>> FAIL: regexp.test: regexp-quote: regexp/extended: string of all chars
>
> Can you try:
>
>  (setlocale LC_ALL "en_US.ISO-8859-1") ;; or some other ISO-8859-1 locale
>  (let* ((s (string (integer->char 254)))
>         (q (regexp-quote s)))
>    (regexp-exec (make-regexp q regexp/extended) s))

scheme@(guile-user)> (setlocale LC_ALL "en_US.ISO-8859-1")
ERROR: In procedure setlocale:
ERROR: In procedure setlocale: Invalid argument

Entering a new prompt.  Type `,bt' for a backtrace or `,q' to continue.

scheme@(guile-user)> (setlocale LC_ALL "en_US.ISO8859-1")
$1 = "en_US.ISO8859-1"
scheme@(guile-user)> (let* ((s (string (integer->char 254))) (q 
(regexp-quote s))) (regexp-exec (make-regexp q regexp/extended) s))
ERROR: In procedure make-regexp:
ERROR: In procedure make-regexp: empty (sub)expression

Entering a new prompt.  Type `,bt' for a backtrace or `,q' to continue.

I have (on darwin8):
fang% locale -a | grep 8859 | grep en
en_AU.ISO8859-1
en_AU.ISO8859-15
en_CA.ISO8859-1
en_CA.ISO8859-15
en_GB.ISO8859-1
en_GB.ISO8859-15
en_NZ.ISO8859-1
en_NZ.ISO8859-15
en_US.ISO8859-1
en_US.ISO8859-15

Fang

-- 
David Fang
http://www.csl.cornell.edu/~fang/