diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-06-25 20:38:16 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-06-25 20:38:16 (GMT) |
| commit | fdee46ab16b879589155729e6db4fdabe235880f (patch) | |
| tree | ba7a7a4cc25027d8df81784b5a53e2add157f47b /tests/all.tcl | |
| parent | 94f9cf81ed3e156bd372a3cac249974d1acb4e1d (diff) | |
| parent | 0839047d8bed631eeb82c7c3e26b0f13461717e6 (diff) | |
| download | tcl-fdee46ab16b879589155729e6db4fdabe235880f.zip tcl-fdee46ab16b879589155729e6db4fdabe235880f.tar.gz tcl-fdee46ab16b879589155729e6db4fdabe235880f.tar.bz2 | |
merge 8.6
Diffstat (limited to 'tests/all.tcl')
| -rw-r--r-- | tests/all.tcl | 15 |
1 files changed, 5 insertions, 10 deletions
diff --git a/tests/all.tcl b/tests/all.tcl index ad372db..4fce323 100644 --- a/tests/all.tcl +++ b/tests/all.tcl @@ -13,19 +13,14 @@ package prefer latest package require Tcl 8.5- package require tcltest 2.2 -namespace import tcltest::* -configure {*}$argv -testdir [file dir [info script]] +namespace import -force ::tcltest::* + +configure {*}$argv -testdir [file dirname [file dirname [file normalize [ + info script]/...]]] + if {[singleProcess]} { interp debug {} -frame 1 } -set testsdir [file dirname [file dirname [file normalize [info script]/...]]] -lappend auto_path $testsdir {*}[apply {{testsdir args} { - lmap x $args { - if {$x eq $testsdir} continue - lindex $x - } -}} $testsdir {*}$auto_path] - runAllTests proc exit args {} |