From cb040a93eb1479ce0896588e2e4cad823dab7b55 Mon Sep 17 00:00:00 2001
From: das <das>
Date: Sat, 31 May 2008 23:34:46 +0000
Subject: 	* tests/msgcat.test:	fix for ::tcl::mac::locale with
 @modifier.

---
 tests/msgcat.test | 5 +++--
 1 file 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
 	    }
-- 
cgit v0.12