diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-06-29 11:34:53 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-06-29 11:34:53 (GMT) |
commit | b3b04348558215a3acd092d58664c31a255781bf (patch) | |
tree | bfb10d62d4883825fbe0944f1a40719cfa927a57 /tests/msgcat.test | |
parent | fe280c4de5f432f6790900dfe1323a0a935d342c (diff) | |
download | tcl-b3b04348558215a3acd092d58664c31a255781bf.zip tcl-b3b04348558215a3acd092d58664c31a255781bf.tar.gz tcl-b3b04348558215a3acd092d58664c31a255781bf.tar.bz2 |
Add tn, ro_MO and ru_MO to msgcat.
Make it work on cygwin (backported)
Bump msgcat to 1.3.5
Diffstat (limited to 'tests/msgcat.test')
-rw-r--r-- | tests/msgcat.test | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/tests/msgcat.test b/tests/msgcat.test index 53b7c52..237a482 100644 --- a/tests/msgcat.test +++ b/tests/msgcat.test @@ -17,8 +17,8 @@ if {[catch {package require tcltest 2}]} { puts stderr "Skipping tests in [info script]. tcltest 2 required." return } -if {[catch {package require msgcat 1.3.4}]} { - puts stderr "Skipping tests in [info script]. No msgcat 1.3.4 found to test." +if {[catch {package require msgcat 1.3.5}]} { + puts stderr "Skipping tests in [info script]. No msgcat 1.3.5 found to test." return } @@ -49,7 +49,7 @@ namespace eval ::msgcat::test { variable body variable result variable setVars - foreach setVars [PowerSet $envVars] { + foreach setVars [PowerSet $envVars] { set result [string tolower [lindex $setVars 0]] if {[string length $result] == 0} { if {[info exists ::tcl::mac::locale]} { @@ -83,7 +83,7 @@ namespace eval ::msgcat::test { incr count } catch {unset result} - + # Could add tests of initialization from Windows registry here. # Use a fake registry package. @@ -472,7 +472,7 @@ namespace eval ::msgcat::test { # Tests msgcat-6.*: [mcset], [mc] namespace inheritance # # Test mcset and mc, ensuring that resolution for messages -# proceeds from the current ns to its parent and so on to the +# proceeds from the current ns to its parent and so on to the # global ns. # # Do this for the 12 permutations of @@ -516,7 +516,7 @@ namespace eval ::msgcat::test { ::msgcat::mcset foo ov3 "ov3_foo_bar_baz" } } - + } variable locale [mclocale] mclocale foo |