diff options
Diffstat (limited to 'testsuite/runtest.main/pr42399.exp')
-rw-r--r-- | testsuite/runtest.main/pr42399.exp | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/testsuite/runtest.main/pr42399.exp b/testsuite/runtest.main/pr42399.exp index 1782231..f1d3abe 100644 --- a/testsuite/runtest.main/pr42399.exp +++ b/testsuite/runtest.main/pr42399.exp @@ -33,7 +33,7 @@ proc test_pr42399 {} { foreach test_count {5 5000} { set result pass - set failures [list] + set eof_reached 0 set want_num 1 set cmd_args [list --local_init nested-init.exp --tool bug \ -a pr42399-sub.exp N=$test_count] @@ -49,9 +49,15 @@ proc test_pr42399 {} { exp_continue } eof { - $result "PR42399 test with $test_count inner tests" + set eof_reached 1 } } + # Were any results at all produced? + if { $want_num == 1 } { set result unresolved } + # Did Expect report eof? + if { ! $eof_reached } { set result unresolved } + # emit test result + $result "PR42399 test with $test_count inner tests" } } |