summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2004-05-05 21:35:24 (GMT)
committerdgp <dgp@users.sourceforge.net>2004-05-05 21:35:24 (GMT)
commitff3d3775756945e7174da795eb668a5f88016267 (patch)
tree82a4a1c6fce9fcb58a7f740866f304814b1d54eb
parent6fcc24c40e1adecb1fb1506c66f8b24bda18a336 (diff)
downloadtcl-ff3d3775756945e7174da795eb668a5f88016267.zip
tcl-ff3d3775756945e7174da795eb668a5f88016267.tar.gz
tcl-ff3d3775756945e7174da795eb668a5f88016267.tar.bz2
* 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]
-rw-r--r--ChangeLog6
-rw-r--r--tests/unixInit.test9
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] ]