From b0663d468e49cfaf1fc430592d2270b7379722f9 Mon Sep 17 00:00:00 2001 From: dgp Date: Wed, 24 Jul 2002 21:05:19 +0000 Subject: * tests/unixInit.test: relaxed unixInit-3.1 to accept iso8859-15 as a valid C encoding. [Bug 575336] --- ChangeLog | 5 +++++ tests/unixInit.test | 8 +++++--- 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 + + * tests/unixInit.test: relaxed unixInit-3.1 to accept iso8859-15 + as a valid C encoding. [Bug 575336] + 2002-07-24 Miguel Sofer * 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)} -- cgit v0.12