From 3697ed5bf1a999e7be9e0a49999d33d7d1fdba83 Mon Sep 17 00:00:00 2001 From: Timothy Sample Date: Thu, 22 Dec 2022 09:14:33 -0600 Subject: [PATCH] tests: Print errors if the status is wrong. * tests/run-test-suite.in (run-test): If the test exits with an unexpected status, print everything written to standard error to make debugging easier. --- tests/run-test-suite.in | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/tests/run-test-suite.in b/tests/run-test-suite.in index 02b5556..54ac5df 100644 --- a/tests/run-test-suite.in +++ b/tests/run-test-suite.in @@ -198,7 +198,8 @@ output, and standard error as three values." (display-output stdout)) (unless stderr-ok? (display "Expected stderr: ") - (display-output xstderr) + (display-output xstderr)) + (unless (and stderr-ok? status-ok?) (display "Actual stderr: " ) (display-output stderr)) (format #t "Result: ~a~%" result)