diff options
Diffstat (limited to 'tests/gpgsm/gpgsm-defs.scm')
| -rw-r--r-- | tests/gpgsm/gpgsm-defs.scm | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/tests/gpgsm/gpgsm-defs.scm b/tests/gpgsm/gpgsm-defs.scm index c978c32b3..711922a27 100644 --- a/tests/gpgsm/gpgsm-defs.scm +++ b/tests/gpgsm/gpgsm-defs.scm @@ -61,12 +61,6 @@ (equal? key::fpr (:fpr l)))) (gpgsm-with-colons `(--list-secret-keys ,key::fpr)))))) -(define (create-file name . lines) - (letfd ((fd (open name (logior O_WRONLY O_CREAT O_BINARY) #o600))) - (let ((port (fdopen fd "wb"))) - (for-each (lambda (line) (display line port) (newline port)) - lines)))) - (define (create-gpgsmhome) (create-file "gpgsm.conf" "disable-crl-checks" |