diff options
Diffstat (limited to 'tests/unixInit.test')
| -rw-r--r-- | tests/unixInit.test | 6 |
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} |