summaryrefslogtreecommitdiffstats
path: root/tests/msgcat.test
diff options
context:
space:
mode:
authordas <das>2008-05-31 23:34:46 (GMT)
committerdas <das>2008-05-31 23:34:46 (GMT)
commitcb040a93eb1479ce0896588e2e4cad823dab7b55 (patch)
tree2b9b53bd75ec6797637afc3a886853c36decbf23 /tests/msgcat.test
parent76e147ef8ba7c5d960b32b63c14f384ac23e9e8d (diff)
downloadtcl-cb040a93eb1479ce0896588e2e4cad823dab7b55.zip
tcl-cb040a93eb1479ce0896588e2e4cad823dab7b55.tar.gz
tcl-cb040a93eb1479ce0896588e2e4cad823dab7b55.tar.bz2
* tests/msgcat.test: fix for ::tcl::mac::locale with @modifier.
Diffstat (limited to 'tests/msgcat.test')
-rw-r--r--tests/msgcat.test5
1 files changed, 3 insertions, 2 deletions
diff --git a/tests/msgcat.test b/tests/msgcat.test
index 6152097..70dc384 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.20 2006/09/11 15:58:01 andreas_kupries Exp $
+# RCS: @(#) $Id: msgcat.test,v 1.21 2008/05/31 23:34:46 das Exp $
package require Tcl 8.2
if {[catch {package require tcltest 2}]} {
@@ -55,7 +55,8 @@ namespace eval ::msgcat::test {
set result [string tolower [lindex $setVars 0]]
if {[string length $result] == 0} {
if {[info exists ::tcl::mac::locale]} {
- set result [string tolower $::tcl::mac::locale]
+ set result [string tolower \
+ [msgcat::ConvertLocale $::tcl::mac::locale]]
} else {
set result c
}