Do not print anything if expected error is #t.

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.