diff options
author | dkf <donal.k.fellows@manchester.ac.uk> | 2018-11-07 18:50:09 (GMT) |
---|---|---|
committer | dkf <donal.k.fellows@manchester.ac.uk> | 2018-11-07 18:50:09 (GMT) |
commit | c1c94e44379f02e1007a4351ce6c40b17a352b4a (patch) | |
tree | 96149f90f19073503f04a19ca0053ad17223d032 /library | |
parent | bea160e7f67787e879ac528090b95a236e689ae8 (diff) | |
download | tcl-c1c94e44379f02e1007a4351ce6c40b17a352b4a.zip tcl-c1c94e44379f02e1007a4351ce6c40b17a352b4a.tar.gz tcl-c1c94e44379f02e1007a4351ce6c40b17a352b4a.tar.bz2 |
[86d249bcba] Make sure that tcltest::runAllTests actually returns 1 on failure
Diffstat (limited to 'library')
-rw-r--r-- | library/tcltest/tcltest.tcl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/library/tcltest/tcltest.tcl b/library/tcltest/tcltest.tcl index 410aa24..d67a900 100644 --- a/library/tcltest/tcltest.tcl +++ b/library/tcltest/tcltest.tcl @@ -2752,6 +2752,7 @@ proc tcltest::runAllTests { {shell ""} } { variable numTests variable failFiles variable DefaultValue + set failFilesAccum {} FillFilesExisted if {[llength [info level 0]] == 1} { @@ -2841,6 +2842,7 @@ proc tcltest::runAllTests { {shell ""} } { } if {$Failed > 0} { lappend failFiles $testFile + lappend failFilesAccum $testFile } } elseif {[regexp [join { {^Number of tests skipped } @@ -2887,7 +2889,7 @@ proc tcltest::runAllTests { {shell ""} } { puts [outputChannel] "" puts [outputChannel] [string repeat ~ 44] } - return [info exists testFileFailures] + return [expr {[info exists testFileFailures] || [llength $failFilesAccum]}] } ##################################################################### |