diff options
| author | hershey <hershey> | 1999-04-19 20:23:41 (GMT) |
|---|---|---|
| committer | hershey <hershey> | 1999-04-19 20:23:41 (GMT) |
| commit | dd43c4b15ca0f31746a639cd1bb4e0d1231cc69b (patch) | |
| tree | efbcf757b07d4e052ac985af28cf84c76f376b47 /tests/msgcat.test | |
| parent | d5a79b1be37f6608565d5c80148dce0adf8aee09 (diff) | |
| download | tcl-dd43c4b15ca0f31746a639cd1bb4e0d1231cc69b.zip tcl-dd43c4b15ca0f31746a639cd1bb4e0d1231cc69b.tar.gz tcl-dd43c4b15ca0f31746a639cd1bb4e0d1231cc69b.tar.bz2 | |
fixed bugs in tests--bug id 1769
Diffstat (limited to 'tests/msgcat.test')
| -rw-r--r-- | tests/msgcat.test | 26 |
1 files changed, 11 insertions, 15 deletions
diff --git a/tests/msgcat.test b/tests/msgcat.test index b9410e2..9dda28b 100644 --- a/tests/msgcat.test +++ b/tests/msgcat.test @@ -12,7 +12,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: msgcat.test,v 1.2 1999/04/16 00:47:31 stanton Exp $ +# RCS: @(#) $Id: msgcat.test,v 1.3 1999/04/19 20:23:41 hershey Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -34,15 +34,23 @@ if {[catch {package require msgcat 1.0}]} { set oldlocale [::msgcat::mclocale] +# some tests fail in tne environment variable LANG exists and is not C + +if {[info exists env(LANG)] && ($env(LANG) != "C")} { + set ::tcltest::testConfig(LANGisC) 0 +} else { + set ::tcltest::testConfig(LANGisC) 1 +} + # # Test the various permutations of mclocale # and mcpreferences. # -test msgcat-1.1 {::msgcat::mclocale default} { +test msgcat-1.1 {::msgcat::mclocale default} {LANGisC} { ::msgcat::mclocale } {c} -test msgcat-1.2 {::msgcat::mcpreferences, single element} { +test msgcat-1.2 {::msgcat::mcpreferences, single element} {LANGisC} { ::msgcat::mcpreferences } {c} test msgcat-1.3 {::msgcat::mclocale, single element} { @@ -304,15 +312,3 @@ file delete msgdir ::tcltest::cleanupTests return - - - - - - - - - - - - |