mirror of git://git.gnupg.org/gnupg.git
gpgscm: Make assert macro more accurate.
* tests/gpgscm/lib.scm (assert): Print the representation of the failed expression. Signed-off-by: Justus Winter <justus@g10code.com>
This commit is contained in:
parent
7207b2fe45
commit
699c6c9f4b
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue