diff options
Diffstat (limited to 'tests/openpgp/all-tests.scm')
| -rw-r--r-- | tests/openpgp/all-tests.scm | 31 |
1 files changed, 23 insertions, 8 deletions
diff --git a/tests/openpgp/all-tests.scm b/tests/openpgp/all-tests.scm index 4b14c4e04..6584df26e 100644 --- a/tests/openpgp/all-tests.scm +++ b/tests/openpgp/all-tests.scm @@ -31,13 +31,28 @@ (test::scm #f (path-join "tests" "openpgp" "setup.scm") + (in-srcdir "tests" "openpgp" "setup.scm")))) + + (define setup-use-keyring + (make-environment-cache + (test::scm + #f + (string-append "<use-keyring>" (path-join "tests" "openpgp" "setup.scm")) (in-srcdir "tests" "openpgp" "setup.scm") - "--" "tests" "gpg"))) + "--use-keyring"))) - (map (lambda (name) - (test::scm setup - (path-join "tests" "openpgp" name) - (in-srcdir "tests" "openpgp" name))) - (parse-makefile-expand (in-srcdir "tests" "openpgp" "Makefile.am") - (lambda (filename port key) (parse-makefile port key)) - "XTESTS"))) + (define all-tests + (parse-makefile-expand (in-srcdir "tests" "openpgp" "Makefile.am") + (lambda (filename port key) (parse-makefile port key)) + "XTESTS")) + (append + (map (lambda (name) + (test::scm setup + (path-join "tests" "openpgp" name) + (in-srcdir "tests" "openpgp" name))) all-tests) + (map (lambda (name) + (test::scm setup-use-keyring + (string-append "<use-keyring>" + (path-join "tests" "openpgp" name)) + (in-srcdir "tests" "openpgp" name) + "--use-keyring")) all-tests))) |