diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-02-05 11:36:49 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-02-05 11:36:49 (GMT) |
commit | 392c7ad8eb0265cb56f69f3ae7ebc48a8cb54ec2 (patch) | |
tree | 07e98024a4d8f78e4fb71825f723fb7ac01246b9 /tests | |
parent | c09ddd48e3db315912a6c3797f37c0a49a2dfb6d (diff) | |
parent | 3a18a03f3d8489e156393863691903ce200ee574 (diff) | |
download | tcl-392c7ad8eb0265cb56f69f3ae7ebc48a8cb54ec2.zip tcl-392c7ad8eb0265cb56f69f3ae7ebc48a8cb54ec2.tar.gz tcl-392c7ad8eb0265cb56f69f3ae7ebc48a8cb54ec2.tar.bz2 |
Merge 8.6
Diffstat (limited to 'tests')
-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 0a62b3e..2eeab6e 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] 0] -tails *] + set res1 [glob -dir [lindex [file volumes] end-1] -tails *] } catch { - cd [lindex [file volumes] 0] + cd [lindex [file volumes] end-1] set res2 [glob *] } list $res1 $res2 |