diff options
| author | dgp <dgp@users.sourceforge.net> | 2001-09-06 21:05:56 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2001-09-06 21:05:56 (GMT) |
| commit | af77fa17787bb4cd9235c1d1ddadf602ee86fd73 (patch) | |
| tree | e7b00ef070dfafc60a72a07ee32308abba4c562b /tests/unixInit.test | |
| parent | 21bfd2e23db4c36f3bf8b253681b9c40c1947aca (diff) | |
| download | tcl-af77fa17787bb4cd9235c1d1ddadf602ee86fd73.zip tcl-af77fa17787bb4cd9235c1d1ddadf602ee86fd73.tar.gz tcl-af77fa17787bb4cd9235c1d1ddadf602ee86fd73.tar.bz2 | |
* Updated test to support
newer HP-UX releases that properly report euc-jp as the system
encoding for Japanese. Bug report and patch verification by
Bob Techentin. [Bug 453883]
Diffstat (limited to 'tests/unixInit.test')
| -rw-r--r-- | tests/unixInit.test | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/tests/unixInit.test b/tests/unixInit.test index d94ea98..7d85d02 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.23 2001/08/27 02:14:08 dgp Exp $ +# RCS: @(#) $Id: unixInit.test,v 1.24 2001/09/06 21:05:56 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -292,11 +292,14 @@ test unixInit-3.2 {TclpSetInitialEncodings} {unixOnly installedTcl} { unset env(LC_ALL) catch {set env(LC_ALL) $oldlc_all} - switch $tcl_platform(os) { - HP-UX {set expectedEncoding shiftjis} - default {set expectedEncoding euc-jp} + set validEncodings [list euc-jp] + if {[string match HP-UX $tcl_platform(os)]} { + # Some older HP-UX systems need us to accept this as valid + # Bug 453883 reports that newer HP-UX systems report euc-jp + # like everybody else. + lappend validEncodings shiftjis } - string compare $enc $expectedEncoding + expr {[lsearch -exact $validEncodings $enc] < 0} } 0 test unixInit-4.1 {TclpSetVariables} {unixOnly} { |