From e8d08f039bfd09b513a3e68b5bd54618f0ce5cf6 Mon Sep 17 00:00:00 2001
From: Jacob Bachmeyer <jcb@gnu.org>
Date: Thu, 20 May 2021 00:55:49 -0500
Subject: Preserve nested runtest log messages when test fails in stats.exp

---
 testsuite/lib/runtest.exp        | 7 +++++++
 testsuite/runtest.main/stats.exp | 1 +
 2 files changed, 8 insertions(+)

(limited to 'testsuite')

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]"
     }
-- 
cgit v1.1