mirror of
git://git.gnupg.org/gnupg.git
synced 2025-01-03 12:11:33 +01:00
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:
parent
956da89193
commit
7a6e6ad288
@ -838,6 +838,8 @@
|
|||||||
(let ((tarball (make-temporary-file "environment-cache")))
|
(let ((tarball (make-temporary-file "environment-cache")))
|
||||||
(atexit (lambda () (remove-temporary-file tarball)))
|
(atexit (lambda () (remove-temporary-file tarball)))
|
||||||
(setup::run-sync '--create-tarball tarball)
|
(setup::run-sync '--create-tarball tarball)
|
||||||
|
(if (not (equal? 'PASS (setup::status)))
|
||||||
|
(fail "Setup failed."))
|
||||||
`(--unpack-tarball ,tarball)))))
|
`(--unpack-tarball ,tarball)))))
|
||||||
|
|
||||||
;; Command line flag handling. Returns the elements following KEY in
|
;; Command line flag handling. Returns the elements following KEY in
|
||||||
|
Loading…
x
Reference in New Issue
Block a user