diff options
| author | Justus Winter <[email protected]> | 2016-07-21 16:05:58 +0000 |
|---|---|---|
| committer | Justus Winter <[email protected]> | 2016-07-21 16:05:58 +0000 |
| commit | 699c6c9f4b44441ab3db7f942df5b81f4cd88b06 (patch) | |
| tree | 9074ddf4e3bb8831457fc09c0536f087b61fd4f2 | |
| parent | gpgscm: Make error message more useful. (diff) | |
| download | gnupg-699c6c9f4b44441ab3db7f942df5b81f4cd88b06.tar.gz gnupg-699c6c9f4b44441ab3db7f942df5b81f4cd88b06.zip | |
gpgscm: Make assert macro more accurate.
* tests/gpgscm/lib.scm (assert): Print the representation of the
failed expression.
Signed-off-by: Justus Winter <[email protected]>
| -rw-r--r-- | tests/gpgscm/lib.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/gpgscm/lib.scm b/tests/gpgscm/lib.scm index e23977a5e..fe28262dc 100644 --- a/tests/gpgscm/lib.scm +++ b/tests/gpgscm/lib.scm @@ -20,7 +20,8 @@ (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) |