diff options
| -rw-r--r-- | tests/fileSystem.test | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/tests/fileSystem.test b/tests/fileSystem.test index 4c406a1..8eb0f49 100644 --- a/tests/fileSystem.test +++ b/tests/fileSystem.test @@ -31,7 +31,9 @@ catch { set ::ddelib [lindex [package ifneeded dde $::ddever] 1] set ::regver [package require registry] set ::reglib [lindex [package ifneeded registry $::regver] 1] - testConstraint loaddll 1 + if {[file extension $::reglib] eq ".dll"} { + testConstraint loaddll 1 + } } # Test for commands defined in Tcltest executable |