summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordas <das>2008-08-14 00:11:10 (GMT)
committerdas <das>2008-08-14 00:11:10 (GMT)
commit749f2802fc8376dc768087cdec029dc3b9a7dc49 (patch)
treee8c28858331fd1769051a13f8ac9039b95dcae1f
parent21ea2229e15d1638d8ee1aa4717bc0b5b32479ad (diff)
downloadtcl-749f2802fc8376dc768087cdec029dc3b9a7dc49.zip
tcl-749f2802fc8376dc768087cdec029dc3b9a7dc49.tar.gz
tcl-749f2802fc8376dc768087cdec029dc3b9a7dc49.tar.bz2
* tests/msgcat.test: fix for ::tcl::mac::locale with
@modifier (HEAD backport 2008-06-01).
-rw-r--r--ChangeLog3
-rw-r--r--tests/msgcat.test5
2 files changed, 6 insertions, 2 deletions
diff --git a/ChangeLog b/ChangeLog
index 2718e61..3fffa4f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
2008-08-14 Daniel Steffen <das@users.sourceforge.net>
+ * tests/msgcat.test: fix for ::tcl::mac::locale with
+ @modifier (HEAD backport 2008-06-01).
+
* tests/fCmd.test (fCmd-6.23): made result matching robust when test
workdir and /tmp are not on same FS.
diff --git a/tests/msgcat.test b/tests/msgcat.test
index 6152097..5cda47b 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.20.8.1 2008/08/14 00:11:11 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
}