summaryrefslogtreecommitdiffstats
path: root/tests/fileName.test
diff options
context:
space:
mode:
authorvincentdarley <vincentdarley>2003-02-07 15:29:28 (GMT)
committervincentdarley <vincentdarley>2003-02-07 15:29:28 (GMT)
commitbffcbb27b4c0752331ae563dd130038f61ee098d (patch)
treedf0c27aa852fca86559e364d49d3f08ff7d9cac8 /tests/fileName.test
parente0cb0bc6b979e367d80f72a624325d14a50ab6eb (diff)
downloadtcl-bffcbb27b4c0752331ae563dd130038f61ee098d.zip
tcl-bffcbb27b4c0752331ae563dd130038f61ee098d.tar.gz
tcl-bffcbb27b4c0752331ae563dd130038f61ee098d.tar.bz2
first speedups to Win filesystem
Diffstat (limited to 'tests/fileName.test')
-rw-r--r--tests/fileName.test14
1 files changed, 13 insertions, 1 deletions
diff --git a/tests/fileName.test b/tests/fileName.test
index 5f70555..15bef4e 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.28 2003/02/04 17:06:52 vincentdarley Exp $
+# RCS: @(#) $Id: fileName.test,v 1.29 2003/02/07 15:29:31 vincentdarley Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -1823,6 +1823,18 @@ test filename-17.1 {windows specific special files} {testsetplatform} {
[file pathtype foo]
} {absolute absolute absolute absolute absolute absolute relative}
+test filename-17.2 {windows specific glob with executable} {winOnly} {
+ makeDirectory execglob
+ makeFile contents execglob/abc.exe
+ makeFile contents execglob/abc.notexecutable
+ set res [glob -nocomplain -dir [temporaryDirectory]/execglob \
+ -tails -types x *]
+ removeFile execglob/abc.exe
+ removeFile execglob/abc.notexecutable
+ removeDirectory execglob
+ set res
+} {abc.exe}
+
# cleanup
catch {file delete -force C:/globTest}
cd [temporaryDirectory]