diff options
Diffstat (limited to 'tests/fileName.test')
| -rw-r--r-- | tests/fileName.test | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/tests/fileName.test b/tests/fileName.test index cdf3572..5ded8c5 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.22 2002/05/30 09:27:11 vincentdarley Exp $ +# RCS: @(#) $Id: fileName.test,v 1.23 2002/06/21 14:22:29 vincentdarley Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -1172,12 +1172,12 @@ test filename-11.17.1 {Tcl_GlobCmd} {pcOnly macOnly} { [file join $globname x,z1.c]\ [file join $globname x1.c]\ [file join $globname y1.c] [file join $globname z1.c]]]] -test filename-11.17.2 {Tcl_GlobCmd} {unixOnly notRoot} { +test filename-11.17.2 {Tcl_GlobCmd} {notRoot} { set dir [pwd] set ret "error in test" if {[catch { cd $globname - exec ln -s a1 link + file link -symbolic link a1 cd $dir set ret [list [catch { lsort [glob -directory $globname -join * b1] @@ -1190,12 +1190,12 @@ test filename-11.17.2 {Tcl_GlobCmd} {unixOnly notRoot} { } [list 0 [lsort [list [file join $globname a1 b1] \ [file join $globname link b1]]]] # Simpler version of the above test to illustrate a given bug. -test filename-11.17.3 {Tcl_GlobCmd} {unixOnly notRoot} { +test filename-11.17.3 {Tcl_GlobCmd} {notRoot} { set dir [pwd] set ret "error in test" if {[catch { cd $globname - exec ln -s a1 link + file link -symbolic link a1 cd $dir set ret [list [catch { lsort [glob -directory $globname -type d *] @@ -1211,12 +1211,12 @@ test filename-11.17.3 {Tcl_GlobCmd} {unixOnly notRoot} { [file join $globname link]]]] # Make sure the bugfix isn't too simple. We don't want # to break 'glob -type l'. -test filename-11.17.4 {Tcl_GlobCmd} {unixOnly notRoot} { +test filename-11.17.4 {Tcl_GlobCmd} {notRoot} { set dir [pwd] set ret "error in test" if {[catch { cd $globname - exec ln -s a1 link + file link -symbolic link a1 cd $dir set ret [list [catch { lsort [glob -directory $globname -type l *] |