From fab376647fa6ee150d687bc232a6c0dc5d62c403 Mon Sep 17 00:00:00 2001
From: sebres <sebres@users.sourceforge.net>
Date: Tue, 12 Mar 2024 18:01:17 +0000
Subject: fixed path for running of suite from temp-directory (also proper skip
 if no dlls available)

---
 tests/fileSystem.test | 18 ++++++++++++++++--
 1 file changed, 16 insertions(+), 2 deletions(-)

diff --git a/tests/fileSystem.test b/tests/fileSystem.test
index 8eb0f49..e8a04d9 100644
--- a/tests/fileSystem.test
+++ b/tests/fileSystem.test
@@ -577,7 +577,14 @@ test filesystem-7.1.1 {load from vfs} -setup {
     set dir [pwd]
 } -constraints {win testsimplefilesystem loaddll} -body {
     # This may cause a crash on exit
-    cd [file dirname $::ddelib]
+    if {[file dirname $::ddelib] ne "."} {
+	cd [file dirname $::ddelib]
+    } else {
+	cd [file dirname [info nameofexecutable]]
+    }
+    if {![file exists [file tail $::ddelib]]} {
+	::tcltest::Skip "no-ddelib"
+    }
     testsimplefilesystem 1
     # This loads dde via a complex copy-to-temp operation
     load simplefs:/[file tail $::ddelib] Dde
@@ -591,7 +598,14 @@ test filesystem-7.1.2 {load from vfs, and then unload again} -setup {
     set dir [pwd]
 } -constraints {win testsimplefilesystem loaddll} -body {
     # This may cause a crash on exit
-    cd [file dirname $::reglib]
+    if {[file dirname $::reglib] ne "."} {
+	cd [file dirname $::reglib]
+    } else {
+	cd [file dirname [info nameofexecutable]]
+    }
+    if {![file exists [file tail $::reglib]]} {
+	::tcltest::Skip "no-reglib"
+    }
     testsimplefilesystem 1
     # This loads reg via a complex copy-to-temp operation
     load simplefs:/[file tail $::reglib] Registry
-- 
cgit v0.12