diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-06-27 14:58:00 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-07-07 21:14:09 +0200 |
commit | b6af47f738d6f750ab190dfbeddf1135eefb16c1 (patch) | |
tree | 07d080ca02b68e0e517e64cc2a04ffe4270c4cda | |
parent | Automatic test name now narrower. (diff) | |
download | calp-b6af47f738d6f750ab190dfbeddf1135eefb16c1.tar.gz calp-b6af47f738d6f750ab190dfbeddf1135eefb16c1.tar.xz |
Better messages for test-assert failures.
-rwxr-xr-x | tests/run-tests.scm | 13 |
1 files 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) |