gpgscm: Fail early if the test setup fails.
authorJustus Winter <justus@g10code.com>
Fri, 14 Jul 2017 10:55:01 +0000 (12:55 +0200)
committerJustus Winter <justus@g10code.com>
Fri, 14 Jul 2017 10:55:01 +0000 (12:55 +0200)
* tests/gpgscm/tests.scm (make-environment-cache): Check status code
of setup script.

Signed-off-by: Justus Winter <justus@g10code.com>
tests/gpgscm/tests.scm

index a6772d1..06084de 100644 (file)
          (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