Tcl Source Code

Artifact ffbd500f7edf6236b0e282f33692b37c2da297967c32fd7c74559882b7765dd3:

Attachment "mt1d.diff" to ticket [dd54ac5323] added by chrstphrchvz 2023-09-15 14:37:53.

---

diff --git tests/fileSystem.test tests/fileSystem.test
index 1e6045b250..ee8e694595 100644
--- tests/fileSystem.test
+++ tests/fileSystem.test
@@ -70,7 +70,8 @@ apply {{} {
 		    lappend drives $vol
 		}
 	    }
-	    testConstraint moreThanOneDrive [llength $drives]
+	    testConstraint moreThanOneDrive \
+		    [::tcl::mathop::> [llength $drives] 1]
 	} finally {
 	    cd $dir
 	}