Preserve nested runtest log messages when test fails in stats.exp

1 files changed, 7 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