gpgscm: Fail early if the test setup fails.

* tests/gpgscm/tests.scm (make-environment-cache): Check status code
of setup script.

Signed-off-by: Justus Winter <justus@g10code.com>
This commit is contained in:
Justus Winter 2017-07-14 12:55:01 +02:00
parent 956da89193
commit 7a6e6ad288
No known key found for this signature in database
GPG Key ID: DD1A52F9DA8C9020
1 changed files with 2 additions and 0 deletions

View File

@ -838,6 +838,8 @@
(let ((tarball (make-temporary-file "environment-cache")))
(atexit (lambda () (remove-temporary-file tarball)))
(setup::run-sync '--create-tarball tarball)
(if (not (equal? 'PASS (setup::status)))
(fail "Setup failed."))
`(--unpack-tarball ,tarball)))))
;; Command line flag handling. Returns the elements following KEY in