diff options
| author | sebres <sebres@users.sourceforge.net> | 2024-03-12 18:01:17 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2024-03-12 18:01:17 (GMT) |
| commit | fab376647fa6ee150d687bc232a6c0dc5d62c403 (patch) | |
| tree | 0cdc38108b00896e66353dbe3ef97a2efcce703e /tests | |
| parent | cbf77a2d9482e2db77cc62df9d0e71d599eb917e (diff) | |
| download | tcl-fab376647fa6ee150d687bc232a6c0dc5d62c403.zip tcl-fab376647fa6ee150d687bc232a6c0dc5d62c403.tar.gz tcl-fab376647fa6ee150d687bc232a6c0dc5d62c403.tar.bz2 | |
fixed path for running of suite from temp-directory (also proper skip if no dlls available)
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/fileSystem.test | 18 |
1 files 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 |