From 7a6e6ad2880bbff54a75ff608d0ec97d6c405733 Mon Sep 17 00:00:00 2001 From: Justus Winter Date: Fri, 14 Jul 2017 12:55:01 +0200 Subject: [PATCH] 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 --- tests/gpgscm/tests.scm | 2 ++ 1 file changed, 2 insertions(+) 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