diff options
| author | pooryorick <com.digitalsmarties@pooryorick.com> | 2016-10-03 16:55:56 (GMT) |
|---|---|---|
| committer | pooryorick <com.digitalsmarties@pooryorick.com> | 2016-10-03 16:55:56 (GMT) |
| commit | 8826c4b5dc048432fbed200da55eef080c75b32c (patch) | |
| tree | 630235c89d7d920a856d6b575a4c28ec3f917fdb /tests/msgcat.test | |
| parent | 79732cb7bfe403d288455d98bc70bf3c73e09e8f (diff) | |
| parent | 2735ae8a8f3cd9a14778858d17f195bf54fc3303 (diff) | |
| download | tcl-8826c4b5dc048432fbed200da55eef080c75b32c.zip tcl-8826c4b5dc048432fbed200da55eef080c75b32c.tar.gz tcl-8826c4b5dc048432fbed200da55eef080c75b32c.tar.bz2 | |
merge trunk
Diffstat (limited to 'tests/msgcat.test')
| -rw-r--r-- | tests/msgcat.test | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/tests/msgcat.test b/tests/msgcat.test index f50ebfb..e69220e 100644 --- a/tests/msgcat.test +++ b/tests/msgcat.test @@ -68,6 +68,7 @@ namespace eval ::msgcat::test { set result c } } + test msgcat-0.$count [list \ locale initialization from environment variables $setVars \ ] -setup { @@ -974,6 +975,9 @@ namespace eval ::msgcat::test { set bgerrorsaved [interp bgerror {}] interp bgerror {} [namespace code callbackproc] + variable locale + if {![info exist locale]} { set locale [mclocale] } + test msgcat-14.1 {invokation loadcmd} -setup { mcforgetpackage mclocale $locale @@ -1068,7 +1072,7 @@ namespace eval ::msgcat::test { mc k1 } -returnCodes 1\ -result {fail} - + interp bgerror {} $bgerrorsaved cleanupTests @@ -1076,3 +1080,6 @@ namespace eval ::msgcat::test { namespace delete ::msgcat::test return +# Local Variables: +# mode: tcl +# End: |