1
0
Fork 0
mirror of git://git.gnupg.org/gnupg.git synced 2025-07-02 22:46:30 +02:00

tests: Refine exception handling.

* tests/gpgscm/init.scm (catch): Bind all arguments to '*error*' in
the error handler, update and fix comment.
(*error-hook*): Revert to original definition.
* tests/gpgscm/tests.scm (tr:do): Adapt accordingly.
* tests/openpgp/issue2419.scm: Likewise.

Signed-off-by: Justus Winter <justus@g10code.com>
This commit is contained in:
Justus Winter 2016-09-19 17:19:00 +02:00
parent 83a406b38a
commit ab483eff9a
3 changed files with 7 additions and 7 deletions

View file

@ -411,7 +411,7 @@
(if error
(begin
(for-each remove-temporary-file tmpfiles')
(throw error)))
(apply throw error)))
(loop tmpfiles' sink (cdr cmds))))))
(define (tr:open pathname)