From 1a4b2a056ce67074301ca31b34e72f174b233403 Mon Sep 17 00:00:00 2001
From: apnadkarni <apnmbx-wits@yahoo.com>
Date: Mon, 25 Sep 2023 18:42:56 +0000
Subject: Fix fileSystem-1.38 to not assume all volumes are drives

---
 tests/fileSystem.test | 11 ++++++-----
 1 file 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
-- 
cgit v0.12