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:
parent
83a406b38a
commit
ab483eff9a
3 changed files with 7 additions and 7 deletions
|
@ -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)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue