diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-06-15 18:40:46 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-06-15 18:40:46 (GMT) |
| commit | 824f6218752373b6a11e1e9dfaa7d7f2eedc6c42 (patch) | |
| tree | 153cbf99ccfa5663ce5d4b2a0e91069a76b935ec /tests/all.tcl | |
| parent | ab3286e299f2ee68fbc5db0ac843285a01e78b15 (diff) | |
| parent | c9802b0230c526e8e09a018ea6099d572b34acd1 (diff) | |
| download | tcl-824f6218752373b6a11e1e9dfaa7d7f2eedc6c42.zip tcl-824f6218752373b6a11e1e9dfaa7d7f2eedc6c42.tar.gz tcl-824f6218752373b6a11e1e9dfaa7d7f2eedc6c42.tar.bz2 | |
merge 8.7
Diffstat (limited to 'tests/all.tcl')
| -rw-r--r-- | tests/all.tcl | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/tests/all.tcl b/tests/all.tcl index 69a16ba..ad372db 100644 --- a/tests/all.tcl +++ b/tests/all.tcl @@ -18,5 +18,14 @@ configure {*}$argv -testdir [file dir [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 {} |