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.
This commit is contained in:
Timothy Sample 2022-12-22 09:14:33 -06:00
parent 1c398c263c
commit 3697ed5bf1
1 changed files with 2 additions and 1 deletions

View File

@ -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)