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 | c67386dcd95dd6a451b861e178503b29a7b13502 (patch) | |
| tree | bfb3b498d50582fd96f0f9912c552a97373920c2 | |
| parent | gpgscm: Make loading of modules less verbose. (diff) | |
| download | libgpg-error-c67386dcd95dd6a451b861e178503b29a7b13502.tar.gz libgpg-error-c67386dcd95dd6a451b861e178503b29a7b13502.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]>
| -rw-r--r-- | tests.scm | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -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 |