diff options
Diffstat (limited to 'tcl_tests')
-rw-r--r-- | tcl_tests/test.tcl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tcl_tests/test.tcl b/tcl_tests/test.tcl index e281f1a..276db7e 100644 --- a/tcl_tests/test.tcl +++ b/tcl_tests/test.tcl @@ -198,7 +198,8 @@ namespace eval test { set timestamp "$teststart+[expr $testend-$teststart]" } } - if {$status!=$exitStatus || ($status==1?![regexp --\ + if {($exitStatus!=-1 && $status!=$exitStatus) || + ($exitStatus!=0?![regexp --\ [rus $expectedResult] $result]:([info exists opts(-time)]?\ ![listcompare $result $expectedResult $opts(-time)]:\ [string compare "$result" "$expectedResult"]))} { |