summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorvincentdarley <vincentdarley>2001-10-29 15:02:44 (GMT)
committervincentdarley <vincentdarley>2001-10-29 15:02:44 (GMT)
commit17543c4edf712509641c3f7b8bf44a63b172818e (patch)
tree6482def417003125e4736466eb3b7797f8d982c1 /tests
parentd165eb244ad4b9050dee074a00ecdda41df575ed (diff)
downloadtcl-17543c4edf712509641c3f7b8bf44a63b172818e.zip
tcl-17543c4edf712509641c3f7b8bf44a63b172818e.tar.gz
tcl-17543c4edf712509641c3f7b8bf44a63b172818e.tar.bz2
win fs fixes
Diffstat (limited to 'tests')
-rw-r--r--tests/fileName.test12
1 files changed, 11 insertions, 1 deletions
diff --git a/tests/fileName.test b/tests/fileName.test
index 92f0e30..757a8d9 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.14 2001/09/04 18:06:34 vincentdarley Exp $
+# RCS: @(#) $Id: fileName.test,v 1.15 2001/10/29 15:02:44 vincentdarley Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -1327,6 +1327,16 @@ test filename-11.25 {Tcl_GlobCmd} {
} [list 0 [lsort [list [file join $globname a1]\
[file join $globname a2]\
[file join $globname a3]]]]
+test filename-11.25.1 {Tcl_GlobCmd} {
+ list [catch {lsort [glob -type {d r} -dir $globname *]} msg] $msg
+} [list 0 [lsort [list [file join $globname a1]\
+ [file join $globname a2]\
+ [file join $globname a3]]]]
+test filename-11.25.2 {Tcl_GlobCmd} {
+ list [catch {lsort [glob -type {d r w} -dir $globname *]} msg] $msg
+} [list 0 [lsort [list [file join $globname a1]\
+ [file join $globname a2]\
+ [file join $globname a3]]]]
test filename-11.26 {Tcl_GlobCmd} {
list [catch {glob -type d -path $globname *} msg] $msg
} [list 0 [list $globname]]