diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-02-05 13:37:26 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-02-05 13:37:26 (GMT) |
| commit | 3f8fe4f987977456ac390c924990339680b7197e (patch) | |
| tree | 6fcb4b3d3080296258efc37fb0d89ddd48236cfb | |
| parent | ac03b5d36e3a81799b84a0e210c338b700b537c2 (diff) | |
| download | tcl-3f8fe4f987977456ac390c924990339680b7197e.zip tcl-3f8fe4f987977456ac390c924990339680b7197e.tar.gz tcl-3f8fe4f987977456ac390c924990339680b7197e.tar.bz2 | |
Oops
| -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 64aff40..7a8ae61 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] 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 |