Artifact
8844dfd106deca66eb9dca8b88d0324d1968e131:
Attachment "hp.patch" to
ticket [453883ffff]
added by
dgp
2001-08-22 01:56:39.
Index: tests/unixInit.test
===================================================================
RCS file: /cvsroot/tcl/tcl/tests/unixInit.test,v
retrieving revision 1.21
diff -u -r1.21 unixInit.test
--- tests/unixInit.test 2001/07/12 16:26:57 1.21
+++ tests/unixInit.test 2001/08/21 18:55:21
@@ -296,11 +296,14 @@
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} {
