diff options
| author | Steve Bennett <steveb@workware.net.au> | 2015-04-06 09:58:07 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2015-04-06 09:58:07 +1000 |
| commit | 85358e479e5bbf295a5aaf743f3c29a5e1a4fd1c (patch) | |
| tree | 0e3c49a31550c9e869e98464a4baff77ebce7b5c /tests | |
| parent | c73f5c591b206c92f8021d01088738c908970d64 (diff) | |
| download | jimtcl-85358e479e5bbf295a5aaf743f3c29a5e1a4fd1c.zip jimtcl-85358e479e5bbf295a5aaf743f3c29a5e1a4fd1c.tar.gz jimtcl-85358e479e5bbf295a5aaf743f3c29a5e1a4fd1c.tar.bz2 | |
ensure that tests can find tcltest.tcl
Reported-By: Stuart Cassoff <stwo@bell.net>
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/testing.tcl | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/tests/testing.tcl b/tests/testing.tcl index 386e070..95c0fe3 100644 --- a/tests/testing.tcl +++ b/tests/testing.tcl @@ -4,5 +4,9 @@ if {[catch {info version}]} { source [file dirname [info script]]/../tcltest.tcl } else { # Jim + if {[exists env(TOPSRCDIR)]} { + set auto_path [list $env(TOPSRCDIR) {*}$auto_path] + } + package require tcltest } |