diff options
author | das <das> | 2006-09-10 17:04:05 (GMT) |
---|---|---|
committer | das <das> | 2006-09-10 17:04:05 (GMT) |
commit | 99f4722bc1aaac286a7546f99abffdea5549c915 (patch) | |
tree | c24aaa06cacae7000c359d5823a4ea95e235ac66 /tests/msgcat.test | |
parent | 22f04a9312703adbda93e367fc6af2064f1b14a3 (diff) | |
download | tcl-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.test | 14 |
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)} |