diff options
Diffstat (limited to 'testsuite')
| -rw-r--r-- | testsuite/lib/runtest.exp | 7 | ||||
| -rw-r--r-- | testsuite/runtest.main/stats.exp | 1 |
2 files changed, 8 insertions, 0 deletions
diff --git a/testsuite/lib/runtest.exp b/testsuite/lib/runtest.exp index 4efd0df..299cb0a 100644 --- a/testsuite/lib/runtest.exp +++ b/testsuite/lib/runtest.exp @@ -70,6 +70,13 @@ proc runtest_setup_nested_testsuite {} { } } +proc runtest_copy_nested_testsuite_log { tool } { + verbose -log -- "---- ${tool}.log from failed test ----" + spawn -open [open [testsuite file -object -top tmpdir "${tool}.log"]] + expect { .+ { exp_continue } } + verbose -log -- "---- end ${tool}.log ----" +} + proc runtest_cleanup_nested_testsuite {} { upvar 1 tmpdir tmpdir diff --git a/testsuite/runtest.main/stats.exp b/testsuite/runtest.main/stats.exp index 7f4f5be..a380751 100644 --- a/testsuite/runtest.main/stats.exp +++ b/testsuite/runtest.main/stats.exp @@ -50,6 +50,7 @@ foreach t $tests { "" \ [lindex $t 2]] } { fail "[lindex $t 0]/[lindex $t 1]" + runtest_copy_nested_testsuite_log stat } else { pass "[lindex $t 0]/[lindex $t 1]" } |