From 35231ec0d7e1ee42dedbc1c26152e097589659fb Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Tue, 8 Dec 2020 10:30:05 +0000
Subject: Skip testcases filesystem-7.1.[1|2] with msvc OPTS=staticpkg: This
 isn't supposed to work

---
 tests/fileSystem.test | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/tests/fileSystem.test b/tests/fileSystem.test
index 500202d..d5a7c01 100644
--- a/tests/fileSystem.test
+++ b/tests/fileSystem.test
@@ -27,10 +27,10 @@ catch {
     ::tcltest::loadTestedCommands
     package require -exact tcl::test [info patchlevel]
     set ::ddever [package require dde]
-    set ::ddelib [lindex [package ifneeded dde $::ddever] 1]
+    set ::ddelib [info loaded {} Dde]
     set ::regver  [package require registry]
-    set ::reglib [lindex [package ifneeded registry $::regver] 1]
-    testConstraint loaddll 1
+    set ::reglib [info loaded {} Registry]
+    testConstraint loaddll [expr {$::ddelib ne "" && $::reglib ne ""}]
 }
 
 # Test for commands defined in tcl::test package
-- 
cgit v0.12