From 9237f2327b9ce8ef521cc5d1019606992d1adfc0 Mon Sep 17 00:00:00 2001
From: sebres <sebres@users.sourceforge.net>
Date: Thu, 27 Jun 2019 15:35:37 +0000
Subject: zipfs.test: fixed error (couldn't open "...": permission denied) if
 $tclzip points to directory, due to empty pkgconfig in runtime/debug
 environment (e. g. no zipped library)

---
 tests/zipfs.test | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tests/zipfs.test b/tests/zipfs.test
index 782d032..2ecbdfa 100644
--- a/tests/zipfs.test
+++ b/tests/zipfs.test
@@ -45,7 +45,7 @@ if {![string match ${ziproot}* $tcl_library]} {
     # archive
     ###
     set tclzip [file join $CWD [::tcl::pkgconfig get zipfile,runtime]]
-    testConstraint zipfslib [file exists $tclzip]
+    testConstraint zipfslib [file isfile $tclzip]
     if {[testConstraint zipfslib]} {
         zipfs mount /lib/tcl $tclzip
         set ::tcl_library ${ziproot}lib/tcl/tcl_library
-- 
cgit v0.12