diff options
Diffstat (limited to 'tests')
| -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 0edec23..ea4814d 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.11.2.2 2004/08/13 21:45:16 dgp Exp $ +# RCS: @(#) $Id: msgcat.test,v 1.11.2.3 2006/09/10 17:04:41 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)} |