From b6af47f738d6f750ab190dfbeddf1135eefb16c1 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 27 Jun 2022 14:58:00 +0200 Subject: Better messages for test-assert failures. --- tests/run-tests.scm | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) diff --git a/tests/run-tests.scm b/tests/run-tests.scm index b4ff6aa0..5270636e 100755 --- a/tests/run-tests.scm +++ b/tests/run-tests.scm @@ -90,9 +90,16 @@ fi err proc fmt args)) (format #t "~aError: ~s~%" (make-indent (1+ depth)) err)))) (else - (format #t "~aExpected: ~s~%~aReceived: ~s~%" - (make-indent (1+ depth)) (test-result-ref runner 'expected-value "[UNKNOWN]") - (make-indent (1+ depth)) (test-result-ref runner 'actual-value "[UNKNOWN]")))) + (let ((unknown-expected (gensym)) + (unknown-actual (gensym))) + (let ((expected (test-result-ref runner 'expected-value unknown-expected)) + (actual (test-result-ref runner 'actual-value unknown-actual))) + (if (eq? expected unknown-expected) + (format #t "~aAssertion failed, received ~s~%" + (make-indent (1+ depth)) actual) + (format #t "~aExpected: ~s~%~aReceived: ~s~%" + (make-indent (1+ depth)) expected + (make-indent (1+ depth)) actual)))))) (format #t "~aNear ~a:~a~%" (make-indent (1+ depth)) (test-result-ref runner 'source-file) -- cgit v1.2.3