diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2023-09-25 19:06:59 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2023-09-25 19:06:59 (GMT) |
| commit | 07cfd779b509862287b80d09eca791b2b8978498 (patch) | |
| tree | 8d57921a21b40c5db45a1b7b95889076ea36eaeb /tests/fileSystem.test | |
| parent | 8357f5d53ce18bd125fab219fa6835976dd7e326 (diff) | |
| parent | d3ec5a1fb59c1b5e51d4492e69d5205300e3f2e8 (diff) | |
| download | tcl-07cfd779b509862287b80d09eca791b2b8978498.zip tcl-07cfd779b509862287b80d09eca791b2b8978498.tar.gz tcl-07cfd779b509862287b80d09eca791b2b8978498.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'tests/fileSystem.test')
| -rw-r--r-- | tests/fileSystem.test | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/tests/fileSystem.test b/tests/fileSystem.test index 0e5042b..da3eb35 100644 --- a/tests/fileSystem.test +++ b/tests/fileSystem.test @@ -64,11 +64,12 @@ apply {{} { set dir [pwd] try { - foreach vol [file volumes] { - if {![catch {cd $vol}]} { - lappend drives $vol - } - } + set drives [lmap vol [file volumes] { + if {$vol eq [zipfs root] || [catch {cd $vol}]} { + continue + } + set vol + }] testConstraint moreThanOneDrive [expr {[llength $drives] > 1}] } finally { cd $dir |