summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2002-07-24 21:05:19 (GMT)
committerdgp <dgp@users.sourceforge.net>2002-07-24 21:05:19 (GMT)
commitb0663d468e49cfaf1fc430592d2270b7379722f9 (patch)
tree23af067c45202349ba05864c8d4f83c81f34ea6a
parent2e8ab4ea5c2a17b5865c4f3884b8f27171da0db1 (diff)
downloadtcl-b0663d468e49cfaf1fc430592d2270b7379722f9.zip
tcl-b0663d468e49cfaf1fc430592d2270b7379722f9.tar.gz
tcl-b0663d468e49cfaf1fc430592d2270b7379722f9.tar.bz2
* tests/unixInit.test: relaxed unixInit-3.1 to accept iso8859-15
as a valid C encoding. [Bug 575336]
-rw-r--r--ChangeLog5
-rw-r--r--tests/unixInit.test8
2 files changed, 10 insertions, 3 deletions
diff --git a/ChangeLog b/ChangeLog
index 1919855..d889d44 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2002-07-24 Don Porter <dgp@users.sourceforge.net>
+
+ * tests/unixInit.test: relaxed unixInit-3.1 to accept iso8859-15
+ as a valid C encoding. [Bug 575336]
+
2002-07-24 Miguel Sofer <msofer@users.sourceforge.net>
* generic/tclExecute.c: restoring the tcl_traceCompile
diff --git a/tests/unixInit.test b/tests/unixInit.test
index a5f5303..b4576b7 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.28 2002/07/15 20:39:42 dgp Exp $
+# RCS: @(#) $Id: unixInit.test,v 1.29 2002/07/24 21:05:19 dgp Exp $
package require tcltest 2
namespace import -force ::tcltest::*
@@ -266,7 +266,9 @@ test unixInit-2.9 {TclpInitLibraryPath: paths relative to executable} {unix noSp
set x
} [list /tmp/lib/tcl[info tclversion] /lib/tcl[info tclversion] \
/tmp/library /library /tcl[info patchlevel]/library]
-test unixInit-3.1 {TclpSetInitialEncodings} {unixOnly stdio} {
+test unixInit-3.1 {TclpSetInitialEncodings} -constraints {
+ unixOnly stdio
+} -body {
set env(LANG) C
set f [open "|[list [interpreter]]" w+]
@@ -277,7 +279,7 @@ test unixInit-3.1 {TclpSetInitialEncodings} {unixOnly stdio} {
unset env(LANG)
set enc
-} {iso8859-1}
+} -match regexp -result ^iso8859-15?$
test unixInit-3.2 {TclpSetInitialEncodings} {unixOnly stdio} {
set env(LANG) japanese
catch {set oldlc_all $env(LC_ALL)}