summaryrefslogtreecommitdiffstats
path: root/tests/unixInit.test
diff options
context:
space:
mode:
authorhobbs <hobbs>2000-02-10 08:55:14 (GMT)
committerhobbs <hobbs>2000-02-10 08:55:14 (GMT)
commitdd33cec55f8d2792c7b628594c4f0f2d4df7f669 (patch)
tree096ac7fd2b5cc84fae1c4869d6fbbf4e5848c4d2 /tests/unixInit.test
parent4541ee11ae166c9c275bd5162a5cf79839415b93 (diff)
downloadtcl-dd33cec55f8d2792c7b628594c4f0f2d4df7f669.zip
tcl-dd33cec55f8d2792c7b628594c4f0f2d4df7f669.tar.gz
tcl-dd33cec55f8d2792c7b628594c4f0f2d4df7f669.tar.bz2
* unix/README:
* unix/Makefile.in (dist): removed porting.notes and porting.old from distribution and CVS. The information was very outdated. Now refer to http://dev.scriptics.com/services/support/platforms.html * tests/unixInit.test: fixed japanese LANG encoding test [Bug: 3549] * unix/configure.in: * unix/tcl.m4: correct CFLAG_WARNING setting, fixed gcc config for AIX, added -export-dynamic to LDFLAGS for FreeBSD-3+ [Bug: 2998] * win/tclWinLoad.c (TclpLoadFile): improved error message for load failures, could perhaps be even more intelligent.
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}