summaryrefslogtreecommitdiffstats
path: root/library/tcltest/tcltest.tcl
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2000-11-24 14:17:11 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2000-11-24 14:17:11 (GMT)
commit64e7ffd3fab4c089f88c5be39ec49f3ffae0dac4 (patch)
tree0ac877e19d760b7a3384a0a566b904f74ff11f77 /library/tcltest/tcltest.tcl
parentb3278ac1c032713c88c6f082112ce0f9c7d2588b (diff)
downloadtcl-64e7ffd3fab4c089f88c5be39ec49f3ffae0dac4.zip
tcl-64e7ffd3fab4c089f88c5be39ec49f3ffae0dac4.tar.gz
tcl-64e7ffd3fab4c089f88c5be39ec49f3ffae0dac4.tar.bz2
Missed a few spots with the previous checkin. Now only
tools/tcltk-man2html.tcl is left unfixed, but that file is sufficiently complex that I don't dare touch it without understanding exactly what all of the supposed directory separators are doing there. In any case, this file is probably not going to be used by ordinary users; developers can put up with a few more "pointless restrictions"...
Diffstat (limited to 'library/tcltest/tcltest.tcl')
-rw-r--r--library/tcltest/tcltest.tcl14
1 files changed, 6 insertions, 8 deletions
diff --git a/library/tcltest/tcltest.tcl b/library/tcltest/tcltest.tcl
index c58c0da..cb3d405 100644
--- a/library/tcltest/tcltest.tcl
+++ b/library/tcltest/tcltest.tcl
@@ -13,7 +13,7 @@
# Copyright (c) 2000 by Ajuba Solutions
# All rights reserved.
#
-# RCS: @(#) $Id: tcltest.tcl,v 1.29 2000/10/28 00:00:00 jenn Exp $
+# RCS: @(#) $Id: tcltest.tcl,v 1.30 2000/11/24 14:17:11 dkf Exp $
# create the "tcltest" namespace for all testing variables and procedures
@@ -2836,13 +2836,13 @@ proc tcltest::getMatchingFiles { {searchDirectory ""} } {
set matchFileList {}
foreach match $tcltest::matchFiles {
set matchFileList [concat $matchFileList \
- [glob -nocomplain [file join $directory $match]]]
+ [glob -directory $directory -nocomplain -- $match]]
}
if {[string compare {} $tcltest::skipFiles]} {
set skipFileList {}
foreach skip $tcltest::skipFiles {
set skipFileList [concat $skipFileList \
- [glob -nocomplain [file join $directory $skip]]]
+ [glob -directory $directory -nocomplain -- $skip]]
}
foreach file $matchFileList {
# Only include files that don't match the skip pattern and
@@ -2887,7 +2887,7 @@ proc tcltest::getMatchingDirectories {rootdir} {
# Find the matching directories in tcltest::testsDirectory and then
# remove the ones that match the skip pattern
foreach match $tcltest::matchDirectories {
- foreach file [glob -nocomplain [file join $rootdir $match]] {
+ foreach file [glob -directory $rootdir -nocomplain -- $match] {
if {([file isdirectory $file]) && ($file != $rootdir)} {
set matchDirList [concat $matchDirList \
[tcltest::getMatchingDirectories $file]]
@@ -2901,8 +2901,7 @@ proc tcltest::getMatchingDirectories {rootdir} {
set skipDirs {}
foreach skip $tcltest::skipDirectories {
set skipDirs [concat $skipDirs \
- [glob -nocomplain [file join $tcltest::testsDirectory \
- $skip]]]
+ [glob -nocomplain -directory $tcltest::testsDirectory $skip]]
}
foreach dir $matchDirList {
# Only include directories that don't match the skip pattern
@@ -3477,8 +3476,7 @@ namespace eval tcltest {
# Save the names of files that already exist in
# the output directory.
- foreach file [glob -nocomplain \
- [file join $tcltest::temporaryDirectory *]] {
+ foreach file [glob -nocomplain -directory $tcltest::temporaryDirectory *] {
lappend tcltest::filesExisted [file tail $file]
}
}