diff options
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) |