Attachment "948177.patch" to
ticket [948177ffff]
added by
dgp
2004-05-06 04:41:03.
Index: ChangeLog
===================================================================
RCS file: /cvsroot/tcl/tcl/ChangeLog,v
retrieving revision 1.1973
diff -u -r1.1973 ChangeLog
--- ChangeLog 5 May 2004 20:52:29 -0000 1.1973
+++ ChangeLog 5 May 2004 21:16:31 -0000
@@ -1,3 +1,9 @@
+2004-05-05 Don Porter <[email protected]>
+
+ * 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 <[email protected]>
* doc/CrtObjCmd.3: Remove reference to Tcl_RenameCommand; there is
Index: tests/unixInit.test
===================================================================
RCS file: /cvsroot/tcl/tcl/tests/unixInit.test,v
retrieving revision 1.35
diff -u -r1.35 unixInit.test
--- tests/unixInit.test 6 Apr 2004 14:35:39 -0000 1.35
+++ tests/unixInit.test 5 May 2004 21:16:32 -0000
@@ -281,7 +281,11 @@
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 @@
removeDirectory sparkly $tmpDir
unset tmpDir
removeDirectory tmp
+ unset x p y
} -result [list [file join [temporaryDirectory] tmp sparkly library] \
[file join [temporaryDirectory] tmp library] ]
