diff options
author | Jacob Bachmeyer <jcb@gnu.org> | 2021-05-20 00:55:49 -0500 |
---|---|---|
committer | Jacob Bachmeyer <jcb@gnu.org> | 2021-05-20 00:55:49 -0500 |
commit | e8d08f039bfd09b513a3e68b5bd54618f0ce5cf6 (patch) | |
tree | 7fdb5fc1b5ad23dd55b621ada2442643023c2731 /testsuite | |
parent | 3be6fdc0ee4b2af9eb7bbd768c9d66ee77be9ea5 (diff) |
Preserve nested runtest log messages when test fails in stats.exp
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]" } |