diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-02-05 11:34:28 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-02-05 11:34:28 (GMT) |
commit | 3a18a03f3d8489e156393863691903ce200ee574 (patch) | |
tree | 566bc7a84d5f1df057871d53f0f3de3ca3b7129e /tests/fileName.test | |
parent | e2c482312c9f25c4c6531a17f9a5dd12f6f3d898 (diff) | |
download | tcl-3a18a03f3d8489e156393863691903ce200ee574.zip tcl-3a18a03f3d8489e156393863691903ce200ee574.tar.gz tcl-3a18a03f3d8489e156393863691903ce200ee574.tar.bz2 |
Fix filename-11.45 testcase when there are multiple volumes: This testcase only works for the native file system, which is the lastt one.
Diffstat (limited to 'tests/fileName.test')
-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 2648049..64aff40 100644 --- a/tests/fileName.test +++ b/tests/fileName.test @@ -1061,10 +1061,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 |