gpgscm: Make assert macro more accurate.
authorJustus Winter <justus@g10code.com>
Thu, 21 Jul 2016 16:05:58 +0000 (18:05 +0200)
committerJustus Winter <justus@g10code.com>
Thu, 21 Jul 2016 16:05:58 +0000 (18:05 +0200)
* tests/gpgscm/lib.scm (assert): Print the representation of the
failed expression.

Signed-off-by: Justus Winter <justus@g10code.com>
tests/gpgscm/lib.scm

index e23977a..fe28262 100644 (file)
@@ -20,7 +20,8 @@
 (macro (assert form)
   `(if (not ,(cadr form))
        (begin
 (macro (assert form)
   `(if (not ,(cadr form))
        (begin
-        (display (list "Assertion failed:" (quote ,(cadr form))))
+        (display "Assertion failed: ")
+        (write (quote ,(cadr form)))
         (newline)
         (exit 1))))
 (assert #t)
         (newline)
         (exit 1))))
 (assert #t)