summaryrefslogtreecommitdiffstats
path: root/tests
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 /tests
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]
Diffstat (limited to 'tests')
-rw-r--r--tests/unixInit.test9
1 files changed, 7 insertions, 2 deletions
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] ]