diff options
author | Steve Bennett <steveb@workware.net.au> | 2011-06-08 10:36:14 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2016-08-26 14:31:55 +1000 |
commit | 040b3e203807dffc429e1f0f4bbb2af8c2d4f7b3 (patch) | |
tree | 8c51d8051d3453faf86f4ca240745734e8a65247 /tcltest.tcl | |
parent | 19834c06937b342995de4186cc9733fdc958a463 (diff) | |
download | jimtcl-040b3e203807dffc429e1f0f4bbb2af8c2d4f7b3.zip jimtcl-040b3e203807dffc429e1f0f4bbb2af8c2d4f7b3.tar.gz jimtcl-040b3e203807dffc429e1f0f4bbb2af8c2d4f7b3.tar.bz2 |
If possible, run tests within a sub-interpreter
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tcltest.tcl')
-rw-r--r-- | tcltest.tcl | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/tcltest.tcl b/tcltest.tcl index ce3cbf3..1542d85 100644 --- a/tcltest.tcl +++ b/tcltest.tcl @@ -7,6 +7,7 @@ set testinfo(stoponerror) 0 set testinfo(numfail) 0 set testinfo(numskip) 0 set testinfo(numtests) 0 +set testinfo(reported) 0 set testinfo(failed) {} if {[lsearch $argv "-verbose"] >= 0 || [info exists env(testverbose)]} { @@ -251,6 +252,11 @@ proc ::tcltest::cleanupTests {} { } proc testreport {} { + if {$::testinfo(reported)} { + return + } + incr ::testinfo(reported) + if {$::testinfo(verbose)} { puts -nonewline "\n$::argv0" } else { |