From 95230d707c09070e97548fa70c5e05072b1976dc Mon Sep 17 00:00:00 2001
From: rjohnson <rjohnson>
Date: Wed, 7 Jul 1999 23:08:13 +0000
Subject: Made test encoding test understand platform differences.

---
 tests/unixInit.test | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/tests/unixInit.test b/tests/unixInit.test
index 3c20204..9426ec6 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.8 1999/07/01 17:36:20 jenn Exp $
+# RCS: @(#) $Id: unixInit.test,v 1.9 1999/07/07 23:08:13 rjohnson Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
@@ -168,8 +168,12 @@ test unixInit-3.2 {TclpSetInitialEncodings} {unixOnly installedTcl} {
     close $f
     unset env(LANG)
 
-    set enc
-} {euc-jp}
+    switch $tcl_platform(os) {
+	HP-UX {set expectedEncoding shiftjis}
+	default {set expectedEncoding euc-jp}
+    }
+    string compare $enc $expectedEncoding
+} 0
     
 test unixInit-4.1 {TclpSetVariables} {unixOnly} {
     # just make sure they exist
-- 
cgit v0.12