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} {
