diff options
| author | Justus Winter <[email protected]> | 2017-08-07 09:15:56 +0000 |
|---|---|---|
| committer | Justus Winter <[email protected]> | 2017-08-07 09:15:56 +0000 |
| commit | b0112dbca91e720a4ff622ad0e88d99eba56203a (patch) | |
| tree | 8db8dd66592bb1cb96329e982ca4c08a77cf8dd0 /tests/openpgp/all-tests.scm | |
| parent | Fix spelling. (diff) | |
| download | gnupg-b0112dbca91e720a4ff622ad0e88d99eba56203a.tar.gz gnupg-b0112dbca91e720a4ff622ad0e88d99eba56203a.zip | |
tests: Do not run all tests unless in maintainer mode.
* configure.ac: Leak the maintainer mode flag into 'config.h'.
* tests/gpgscm/ffi.c: Pass it into the scheme environment.
* tests/openpgp/all-tests.scm: Only run tests against non-default
configurations (keyring, extended-key-format) in maintainer mode.
--
Werner is concerned that the tests do take up too much time and asked
me to reduce the runtime of the tests for normal users.
Signed-off-by: Justus Winter <[email protected]>
Diffstat (limited to 'tests/openpgp/all-tests.scm')
| -rw-r--r-- | tests/openpgp/all-tests.scm | 40 |
1 files changed, 25 insertions, 15 deletions
diff --git a/tests/openpgp/all-tests.scm b/tests/openpgp/all-tests.scm index 4dd6d6fe1..e65d52730 100644 --- a/tests/openpgp/all-tests.scm +++ b/tests/openpgp/all-tests.scm @@ -51,18 +51,28 @@ (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 - (qualify (path-join "tests" "openpgp" name) "use-keyring") - (in-srcdir "tests" "openpgp" name) - "--use-keyring")) all-tests) - (map (lambda (name) - (test::scm setup-extended-key-format - (qualify (path-join "tests" "openpgp" name) "extended-key-format") - (in-srcdir "tests" "openpgp" name) - "--extended-key-format")) all-tests))) + + (define tests + (map (lambda (name) + (test::scm setup + (path-join "tests" "openpgp" name) + (in-srcdir "tests" "openpgp" name))) all-tests)) + + (when *maintainer-mode* + (set! tests + (append + tests + (map (lambda (name) + (test::scm setup-use-keyring + (qualify (path-join "tests" "openpgp" name) + "use-keyring") + (in-srcdir "tests" "openpgp" name) + "--use-keyring")) all-tests) + (map (lambda (name) + (test::scm setup-extended-key-format + (qualify (path-join "tests" "openpgp" name) + "extended-key-format") + (in-srcdir "tests" "openpgp" name) + "--extended-key-format")) all-tests)))) + + tests) |