diff options
| author | Justus Winter <[email protected]> | 2017-07-14 10:55:01 +0000 |
|---|---|---|
| committer | Justus Winter <[email protected]> | 2017-07-14 10:55:01 +0000 |
| commit | 7a6e6ad2880bbff54a75ff608d0ec97d6c405733 (patch) | |
| tree | 5d78b7548b9e26923dd29d6a41cb394d0c1cc63e /tests/gpgscm | |
| parent | gpg: Fix importing keys. (diff) | |
| download | gnupg-7a6e6ad2880bbff54a75ff608d0ec97d6c405733.tar.gz gnupg-7a6e6ad2880bbff54a75ff608d0ec97d6c405733.zip | |
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 <[email protected]>
Diffstat (limited to 'tests/gpgscm')
| -rw-r--r-- | tests/gpgscm/tests.scm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/tests/gpgscm/tests.scm b/tests/gpgscm/tests.scm index a6772d1ab..06084dea9 100644 --- a/tests/gpgscm/tests.scm +++ b/tests/gpgscm/tests.scm @@ -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 |