summaryrefslogtreecommitdiffstats
path: root/tests/msgcat.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/msgcat.test')
-rw-r--r--tests/msgcat.test26
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
-
-
-
-
-
-
-
-
-
-
-
-