diff options
Diffstat (limited to 'tests/gpgme/gpgme-defs.scm')
| -rw-r--r-- | tests/gpgme/gpgme-defs.scm | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/tests/gpgme/gpgme-defs.scm b/tests/gpgme/gpgme-defs.scm index 1e215b1e3..690d097fd 100644 --- a/tests/gpgme/gpgme-defs.scm +++ b/tests/gpgme/gpgme-defs.scm @@ -45,11 +45,6 @@ ;; The tests expect the pinentry to return the passphrase "abc". (setenv "PINENTRY_USER_DATA" "abc" #t) -(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-gpgmehome . path) ;; Support for various environments. (define mode |