summaryrefslogtreecommitdiffstats
path: root/tests/unixInit.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/unixInit.test')
-rw-r--r--tests/unixInit.test6
1 files changed, 5 insertions, 1 deletions
diff --git a/tests/unixInit.test b/tests/unixInit.test
index 77a6bb4..7007ae7 100644
--- a/tests/unixInit.test
+++ b/tests/unixInit.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: unixInit.test,v 1.11 1999/10/19 18:08:44 jenn Exp $
+# RCS: @(#) $Id: unixInit.test,v 1.12 2000/02/10 08:55:22 hobbs Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -164,6 +164,8 @@ test unixInit-3.1 {TclpSetInitialEncodings} {unixOnly installedTcl} {
} {iso8859-1}
test unixInit-3.2 {TclpSetInitialEncodings} {unixOnly installedTcl} {
set env(LANG) japanese
+ catch {set oldlc_all $env(LC_ALL)}
+ set env(LC_ALL) japanese
set f [open "|[list $::tcltest::tcltest]" w+]
fconfigure $f -buffering none
@@ -171,6 +173,8 @@ test unixInit-3.2 {TclpSetInitialEncodings} {unixOnly installedTcl} {
set enc [gets $f]
close $f
unset env(LANG)
+ unset env(LC_ALL)
+ catch {set env(LC_ALL) $oldlc_all}
switch $tcl_platform(os) {
HP-UX {set expectedEncoding shiftjis}