diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-06-27 19:09:01 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-06-27 19:09:01 (GMT) |
| commit | 66ec3cd3a668d06b78e321578eb5f3fa1cda5031 (patch) | |
| tree | a552d7e0fe3970cf84238655cf00cdff26f88208 /tests/all.tcl | |
| parent | c44181ecafaa160b94728593527ebca0260dc51f (diff) | |
| parent | 7cb7a44074f18108b2cedbf4496758442149d9d5 (diff) | |
| download | tcl-66ec3cd3a668d06b78e321578eb5f3fa1cda5031.zip tcl-66ec3cd3a668d06b78e321578eb5f3fa1cda5031.tar.gz tcl-66ec3cd3a668d06b78e321578eb5f3fa1cda5031.tar.bz2 | |
merge trunk
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..e14bd9c 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 ::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 {} |