diff options
-rw-r--r-- | generic/tclObj.c | 2 | ||||
-rw-r--r-- | tests/fileSystem.test | 11 |
2 files changed, 7 insertions, 6 deletions
diff --git a/generic/tclObj.c b/generic/tclObj.c index 8d3ddd5..6dcd733 100644 --- a/generic/tclObj.c +++ b/generic/tclObj.c @@ -2154,7 +2154,7 @@ ParseBoolean( Tcl_Size i, length; const char *str = Tcl_GetStringFromObj(objPtr, &length); - if ((length == 0) || (length > 5)) { + if ((length <= 0) || (length > 5)) { /* * Longest valid boolean string rep. is "false". */ 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 |