From 988a04b98d42ff9cc9e62007ebcc0e4c03f4047d Mon Sep 17 00:00:00 2001 From: Justus Winter Date: Tue, 20 Sep 2016 10:44:57 +0200 Subject: 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 --- tests/openpgp/conventional-mdc.scm | 18 +----------------- 1 file changed, 1 insertion(+), 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) -- cgit v1.2.3