diff options
| author | Justus Winter <[email protected]> | 2016-09-20 08:44:57 +0000 |
|---|---|---|
| committer | Justus Winter <[email protected]> | 2016-09-20 13:33:57 +0000 |
| commit | 988a04b98d42ff9cc9e62007ebcc0e4c03f4047d (patch) | |
| tree | 860bf475c9a8399ffce6e268258f2dbde3a4d5a4 | |
| parent | dirmngr: Fix type. (diff) | |
| download | gnupg-988a04b98d42ff9cc9e62007ebcc0e4c03f4047d.tar.gz gnupg-988a04b98d42ff9cc9e62007ebcc0e4c03f4047d.zip | |
tests: Reduce runtime of excessive test.
* tests/openpgp/conventional-mdc.scm: Use only two plaintexts when
iterating over all cipher algorithms.
Signed-off-by: Justus Winter <[email protected]>
Diffstat (limited to '')
| -rwxr-xr-x | tests/openpgp/conventional-mdc.scm | 18 |
1 files changed, 1 insertions, 17 deletions
diff --git a/tests/openpgp/conventional-mdc.scm b/tests/openpgp/conventional-mdc.scm index c52492175..dcdb47405 100755 --- a/tests/openpgp/conventional-mdc.scm +++ b/tests/openpgp/conventional-mdc.scm @@ -22,20 +22,6 @@ (define s2k '--s2k-count=65536) (define passphrase "Hier spricht HAL") -(define (file-copy-n from to n) - (catch '() (unlink to)) - (letfd ((source (open from (logior O_RDONLY O_BINARY))) - (sink (open to (logior O_WRONLY O_CREAT O_BINARY) #o600))) - (splice source sink n))) - -(define test-files - (map (lambda (size) - (let ((tmp (make-temporary-file - (string-append "data-80000-" (number->string size))))) - (file-copy-n "data-80000" tmp size) - tmp)) - '(0 1 2 3 9 10 11 19 20 21 22 23 39 40 41 8192 32000))) - (for-each-p "Checking conventional encryption with MDC" (lambda (algo) @@ -49,11 +35,9 @@ --cipher-algo ,algo)) (tr:gpg passphrase `(--yes --passphrase-fd "0" ,s2k)) (tr:assert-identity source))) - test-files)) + '("plain-1" "data-80000"))) all-cipher-algos) -(for-each remove-temporary-file test-files) - (for-each-p "Checking sign+symencrypt" (lambda (source) |