diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/fileName.test | 12 |
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]] |