diff options
| author | Justus Winter <[email protected]> | 2016-09-20 09:17:10 +0000 |
|---|---|---|
| committer | Justus Winter <[email protected]> | 2016-09-20 13:33:57 +0000 |
| commit | 49fae88fd170f2bdc12a1794a2637260e3c73a73 (patch) | |
| tree | f55c2dadff39d82be02ec586ad09e5876eb0af19 | |
| parent | tests: Reduce runtime of excessive test. (diff) | |
| download | gnupg-49fae88fd170f2bdc12a1794a2637260e3c73a73.tar.gz gnupg-49fae88fd170f2bdc12a1794a2637260e3c73a73.zip | |
tests: Remove list of tests from the test runner.
* tests/openpgp/run-tests.scm: Drop hardcoded list.
Signed-off-by: Justus Winter <[email protected]>
Diffstat (limited to '')
| -rw-r--r-- | tests/openpgp/run-tests.scm | 44 |
1 files changed, 1 insertions, 43 deletions
diff --git a/tests/openpgp/run-tests.scm b/tests/openpgp/run-tests.scm index 3334f61e6..be22303cf 100644 --- a/tests/openpgp/run-tests.scm +++ b/tests/openpgp/run-tests.scm @@ -169,47 +169,6 @@ (setup'::run-sync-quiet '--unpack-tarball gpghome-tar) (loop (pool::add (test'::run-sync)) (cdr tests'))))))) -(define all-tests - '("version.scm" - "mds.scm" - "decrypt.scm" - "decrypt-dsa.scm" - "sigs.scm" - "sigs-dsa.scm" - "encrypt.scm" - "encrypt-dsa.scm" - "seat.scm" - "clearsig.scm" - "encryptp.scm" - "detach.scm" - "detachm.scm" - "armsigs.scm" - "armencrypt.scm" - "armencryptp.scm" - "signencrypt.scm" - "signencrypt-dsa.scm" - "armsignencrypt.scm" - "armdetach.scm" - "armdetachm.scm" - "genkey1024.scm" - "conventional.scm" - "conventional-mdc.scm" - "multisig.scm" - "verify.scm" - "armor.scm" - "import.scm" - "ecc.scm" - "4gb-packet.scm" - "tofu.scm" - "gpgtar.scm" - "use-exact-key.scm" - "default-key.scm" - "export.scm" - "ssh.scm" - "issue2015.scm" - "issue2346.scm" - "issue2419.scm")) - (let* ((runner (if (member "--parallel" *args*) (if (member "--shared" *args*) run-tests-parallel-shared @@ -217,7 +176,6 @@ (if (member "--shared" *args*) run-tests-sequential-shared run-tests-sequential-isolated))) - (tests' (filter (lambda (arg) (not (string-prefix? arg "--"))) *args*)) - (tests (if (null? tests') all-tests tests'))) + (tests (filter (lambda (arg) (not (string-prefix? arg "--"))) *args*))) (apply runner (append (list (test::scm "setup.scm") (test::scm "finish.scm")) (map test::scm tests)))) |