[test-extras] (gnc:options->sxml) dumps better error

The exception catcher gives a (k . args) pair which contain useful
information about the exception. Show in test log output.
This commit is contained in:
Christopher Lam 2019-02-07 19:52:49 +08:00
parent 768132236a
commit 82edec26fc

View File

@ -83,8 +83,8 @@
#:trim-whitespace? #t
#:entities '((nbsp . "\xa0"))))
(lambda (k . args)
(format #t "*** XML error: ~a ~a\n~a"
prefix test-title
(format #t "*** XML error: ~a ~a: ~a / ~a\n~a"
prefix test-title k args
(gnc:html-render-options-changed options #t))
(throw k args)))))