diff options
Diffstat (limited to 'tests')
| -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 5631445..7512504 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 |