diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2023-09-25 18:42:56 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2023-09-25 18:42:56 (GMT) |
| commit | 1a4b2a056ce67074301ca31b34e72f174b233403 (patch) | |
| tree | fb87c4167f1c9e6e1cf272e4c5a5a8a832f0d2ef | |
| parent | 69efa801a21b9488aff642c3bbf2d9c79be41dc7 (diff) | |
| download | tcl-1a4b2a056ce67074301ca31b34e72f174b233403.zip tcl-1a4b2a056ce67074301ca31b34e72f174b233403.tar.gz tcl-1a4b2a056ce67074301ca31b34e72f174b233403.tar.bz2 | |
Fix fileSystem-1.38 to not assume all volumes are drives
| -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 |