summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/unixInit.test10
1 files changed, 7 insertions, 3 deletions
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] ]