summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2004-05-05 21:34:50 (GMT)
committerdgp <dgp@users.sourceforge.net>2004-05-05 21:34:50 (GMT)
commitb57cecd3c68da0bfa3bde7795d505fd29bbd8ca8 (patch)
tree2fdf4935c695ffca067171372ff014ff1f1bd8a5
parent5fcc82ee3020de5dcf7ff55a086f396c0ddba39e (diff)
downloadtcl-b57cecd3c68da0bfa3bde7795d505fd29bbd8ca8.zip
tcl-b57cecd3c68da0bfa3bde7795d505fd29bbd8ca8.tar.gz
tcl-b57cecd3c68da0bfa3bde7795d505fd29bbd8ca8.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.test10
2 files changed, 13 insertions, 3 deletions
diff --git a/ChangeLog b/ChangeLog
index 641d8c4..7b9f4ec 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 880ea54..4523ee3 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.30.2.7 2004/04/06 14:39:16 dgp Exp $
+# RCS: @(#) $Id: unixInit.test,v 1.30.2.8 2004/05/05 21:34:52 dgp Exp $
package require tcltest 2
namespace import -force ::tcltest::*
@@ -281,8 +281,11 @@ test unixInit-2.10 {TclpInitLibraryPath: executable relative} -constraints {
cd $libDir
} -body {
# Checking for Bug 832657
- # The proposed patch in TclFindEncodings was not correct x-platform.
- 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
@@ -298,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] ]