diff options
Diffstat (limited to 'bin')
| -rwxr-xr-x | bin/run64 | 22 |
1 files changed, 13 insertions, 9 deletions
diff --git a/bin/run64 b/bin/run64 index 3c98ec0..e90dfd2 100755 --- a/bin/run64 +++ b/bin/run64 @@ -284,16 +284,20 @@ object instead of the list element." (case test-type ;; On test-assert, print nothing additional. ((assert) #t) - ;; On test-error, print the mismatch in expected - ;; and actual errors. + ;; On test-error, if the expected error is not #t, print + ;; the mismatch in expected and actual errors. An expected + ;; error of #t is a special case that signifies "some kind + ;; of unspecified error". ((error) - (newline) - (display (red "Actual error: ")) - (write (assq-ref failure 'actual-error)) - (newline) - (display (red "Expected error: ")) - (write (assq-ref failure 'expected-error)) - (newline)) + (unless (eq? (assq-ref failure 'expected-error) + #t) + (newline) + (display (red "Actual error: ")) + (write (assq-ref failure 'actual-error)) + (newline) + (display (red "Expected error: ")) + (write (assq-ref failure 'expected-error)) + (newline))) ((eq eqv equal approximate) (cond ;; If an error occurred, report it. |