#61 msgcat.test message-cat-1.3 catopen fails

[Larry W. Virden]

platform: sparc solaris 8, sun c compiler, tcl 8.6 cvs head (however, I've seen this same error for a while now against a variety of tcl versions).

msgcat.test

==== message-cat-1.3 catopen tests FAILED
==== Contents of test case:

list [catch {catopen -fail "FOOBAZWAP"} msg] $msg
switch -exact $msg {
"open of message catalog failed" -
"the message catalog facility is not available, default string is always
returned" {concat "OK"}
default {
# This will fail on Linux and FreeBSD, where the catopen libc
# function exhibits non-standard behavior. This is should not be
# a problem for most developers, so fake the OK.
if {[regexp Linux|FreeBSD $::tcl_platform(os)] && ($msg == "msgcat0
")} {
concat "OK"
} else {
concat "Bad catopen return: $msg"
}
}
}

---- Result was:
Bad catopen return: msgcat0
---- Result should have been (exact matching):
OK
==== message-cat-1.3 FAILED