summaryrefslogtreecommitdiffstats
path: root/tests/msgcat.test
diff options
context:
space:
mode:
authordas <das>2006-09-10 17:04:05 (GMT)
committerdas <das>2006-09-10 17:04:05 (GMT)
commit99f4722bc1aaac286a7546f99abffdea5549c915 (patch)
treec24aaa06cacae7000c359d5823a4ea95e235ac66 /tests/msgcat.test
parent22f04a9312703adbda93e367fc6af2064f1b14a3 (diff)
downloadtcl-99f4722bc1aaac286a7546f99abffdea5549c915.zip
tcl-99f4722bc1aaac286a7546f99abffdea5549c915.tar.gz
tcl-99f4722bc1aaac286a7546f99abffdea5549c915.tar.bz2
* library/msgcat/msgcat.tcl (msgcat::Init): on Darwin, add fallback of
* tests/msgcat.test: default msgcat locale to * unix/tclUnixInit.c (TclpSetVariables): current CFLocale identifier if available (via private ::tcl::mac::locale global, set at interp init when on Mac OS X 10.3 or later with CoreFoundation). * library/tcltest/tcltest.tcl: add 'line' verbose level: prints source * doc/tcltest.n: file line information of failing tests. * macosx/Tcl.xcodeproj/project.pbxproj: add new tclUnixCompat.c file; revise tests target to use new tcltest 'line' verbose level. * unix/configure.in: add descriptions to new AC_DEFINEs for MT-safe. * unix/tcl.m4: add caching to new SC_TCL_* macros for MT-safe wrappers. * unix/configure: autoconf-2.59 * unix/tclConfig.h.in: autoheader-2.59
Diffstat (limited to 'tests/msgcat.test')
-rw-r--r--tests/msgcat.test14
1 files changed, 9 insertions, 5 deletions
diff --git a/tests/msgcat.test b/tests/msgcat.test
index 06fccf6..e626883 100644
--- a/tests/msgcat.test
+++ b/tests/msgcat.test
@@ -12,7 +12,7 @@
# Note that after running these tests, entries will be left behind in the
# message catalogs for locales foo, foo_BAR, and foo_BAR_baz.
#
-# RCS: @(#) $Id: msgcat.test,v 1.18 2005/05/10 18:35:22 kennykb Exp $
+# RCS: @(#) $Id: msgcat.test,v 1.19 2006/09/10 17:04:06 das Exp $
package require Tcl 8.2
if {[catch {package require tcltest 2}]} {
@@ -54,11 +54,15 @@ namespace eval ::msgcat::test {
foreach setVars [PowerSet $envVars] {
set result [string tolower [lindex $setVars 0]]
if {[string length $result] == 0} {
- set result c
+ if {[info exists ::tcl::mac::locale]} {
+ set result [string tolower $::tcl::mac::locale]
+ } else {
+ set result c
+ }
}
- test msgcat-0.$count {
- locale initialization from environment variables
- } -setup {
+ test msgcat-0.$count [list \
+ locale initialization from environment variables $setVars \
+ ] -setup {
variable var
foreach var $envVars {
catch {variable $var $::env($var)}