* tests/unixInit.test (unixInit-2.10): Test correction for Mac OSX.

        Be sure to consistently compare normalized path names.  Thanks to
        Steven Abner (tauvan).  [Bug 948177]

2 files changed, 13 insertions, 2 deletions

diff --git a/ChangeLog b/ChangeLog
index e0d065d..efaac16 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2004-05-05  Don Porter  <dgp@users.sourceforge.net>
+
+	* tests/unixInit.test (unixInit-2.10):	Test correction for Mac OSX.
+	Be sure to consistently compare normalized path names.  Thanks to
+	Steven Abner (tauvan).  [Bug 948177]
+
 2004-05-05  Donal K. Fellows  <donal.k.fellows@man.ac.uk>
 
 	* doc/CrtObjCmd.3: Remove reference to Tcl_RenameCommand; there is
diff --git a/tests/unixInit.test b/tests/unixInit.test
index c5bedbe..9caa0bd 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.35 2004/04/06 14:35:39 dgp Exp $
+# RCS: @(#) $Id: unixInit.test,v 1.36 2004/05/05 21:35:24 dgp Exp $
 
 package require tcltest 2
 namespace import -force ::tcltest::*
@@ -281,7 +281,11 @@ test unixInit-2.10 {TclpInitLibraryPath: executable relative} -constraints {
     cd $libDir
 } -body {
     # Checking for Bug 832657
-    lrange [getlibpath [file join .. bin tcltest]] 2 3
+    set x [lrange [getlibpath [file join .. bin tcltest]] 2 3]
+    foreach p $x {
+	lappend y [file normalize $p]
+    }
+    set y
 } -cleanup {
     cd $saveDir
     unset saveDir
@@ -297,6 +301,7 @@ test unixInit-2.10 {TclpInitLibraryPath: executable relative} -constraints {
     removeDirectory sparkly $tmpDir
     unset tmpDir
     removeDirectory tmp
+    unset x p y
 } -result [list [file join [temporaryDirectory] tmp sparkly library] \
 	[file join [temporaryDirectory] tmp library] ]