diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-02-05 13:45:51 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-02-05 13:45:51 (GMT) |
| commit | a5a604fbb7bd4c404677748eca574b13d0b43647 (patch) | |
| tree | 0cf0e0689f8b198cf9ef7ef6aa1f9f8030684825 | |
| parent | 6cc987ae31568fd5496c83e3d09a690f532f3b5b (diff) | |
| parent | f0e4847e9e5713293d482f2b6093eca931308a86 (diff) | |
| download | tcl-a5a604fbb7bd4c404677748eca574b13d0b43647.zip tcl-a5a604fbb7bd4c404677748eca574b13d0b43647.tar.gz tcl-a5a604fbb7bd4c404677748eca574b13d0b43647.tar.bz2 | |
Merge 8.6
| -rw-r--r-- | tests/fileName.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/fileName.test b/tests/fileName.test index 2eeab6e..04273d7 100644 --- a/tests/fileName.test +++ b/tests/fileName.test @@ -1063,10 +1063,10 @@ test filename-11.45 {Tcl_GlobCmd on root volume} -setup { set tmpd [pwd] } -body { catch { - set res1 [glob -dir [lindex [file volumes] end-1] -tails *] + set res1 [glob -dir [lindex [file volumes] end] -tails *] } catch { - cd [lindex [file volumes] end-1] + cd [lindex [file volumes] end] set res2 [glob *] } list $res1 $res2 |