security-and-privacy/gnupg
security-and-privacy/gnupg
1
0
Fork 0
mirror of git://git.gnupg.org/gnupg.git synced 2025-04-17 15:44:34 +02:00
Code Activity

tests: Remove list of tests from the test runner.

Browse Source 
* tests/openpgp/run-tests.scm: Drop hardcoded list.

Signed-off-by: Justus Winter <justus@g10code.com>
This commit is contained in:
Justus Winter 2016-09-20 11:17:10 +02:00
parent 988a04b98d
commit 49fae88fd1
1 changed files with 1 additions and 43 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
tests/openpgp/run-tests.scm
View File

@ -169,47 +169,6 @@
(setup'::run-sync-quiet '--unpack-tarball gpghome-tar) (setup'::run-sync-quiet '--unpack-tarball gpghome-tar)
(loop (pool::add (test'::run-sync)) (cdr tests'))))))) (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*) (let* ((runner (if (member "--parallel" *args*)
(if (member "--shared" *args*) (if (member "--shared" *args*)
run-tests-parallel-shared run-tests-parallel-shared
@ -217,7 +176,6 @@
(if (member "--shared" *args*) (if (member "--shared" *args*)
run-tests-sequential-shared run-tests-sequential-shared
run-tests-sequential-isolated))) run-tests-sequential-isolated)))
(tests' (filter (lambda (arg) (not (string-prefix? arg "--"))) *args*)) (tests (filter (lambda (arg) (not (string-prefix? arg "--"))) *args*)))
(tests (if (null? tests') all-tests tests')))
(apply runner (append (list (test::scm "setup.scm") (test::scm "finish.scm")) (apply runner (append (list (test::scm "setup.scm") (test::scm "finish.scm"))
(map test::scm tests)))) (map test::scm tests))))