summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorhobbs <hobbs>2004-05-04 22:12:47 (GMT)
committerhobbs <hobbs>2004-05-04 22:12:47 (GMT)
commit4b1a1e33963081c4ba6472f189981a395d4d6577 (patch)
tree756a840a2b0517b74f7b921a1a39902abfd6f6bf /tests
parentc8d75bda613025d7582de9ffe5d86969708b2984 (diff)
downloadtcl-4b1a1e33963081c4ba6472f189981a395d4d6577.zip
tcl-4b1a1e33963081c4ba6472f189981a395d4d6577.tar.gz
tcl-4b1a1e33963081c4ba6472f189981a395d4d6577.tar.bz2
* tests/fileName.test (filename-12.9): use C:/ instead of the
first item in file volumes - that's usually A:/, which for most will have nothing in it.
Diffstat (limited to 'tests')
-rw-r--r--tests/fileName.test6
1 files changed, 4 insertions, 2 deletions
diff --git a/tests/fileName.test b/tests/fileName.test
index db431fc..19b08ec 100644
--- a/tests/fileName.test
+++ b/tests/fileName.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: fileName.test,v 1.30.2.4 2004/03/09 12:56:59 vincentdarley Exp $
+# RCS: @(#) $Id: fileName.test,v 1.30.2.5 2004/05/04 22:12:49 hobbs Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -1669,7 +1669,9 @@ test filename-12.8 {globbing at filesystem root} {unixOnly} {
set equal
} {1}
test filename-12.9 {globbing at filesystem root} {winOnly} {
- set dir [lindex [glob -type d [lindex [file volumes] 0]*] 0]
+ # Can't grab just anything from 'file volumes' because we need a dir
+ # that has subdirs - assume that C:/ exists across Windows machines.
+ set dir [lindex [glob -type d C:/*] 0]
set first [string range $dir 0 3]
set res1 [glob -nocomplain ${first}*]
set res2 [glob -path $first *]