diff options
Diffstat (limited to '')
| -rwxr-xr-x | tests/openpgp/setup.scm | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/tests/openpgp/setup.scm b/tests/openpgp/setup.scm index 9ad19c284..8fc154346 100755 --- a/tests/openpgp/setup.scm +++ b/tests/openpgp/setup.scm @@ -55,14 +55,6 @@ CLOSED_FD fd STDERR_FILENO))) '(500 9000 32000 80000)) -(define (dearmor source-name sink-name) - (pipe:do - (pipe:open source-name (logior O_RDONLY O_BINARY)) - (pipe:spawn `(,@GPG --dearmor)) - (pipe:write-to sink-name - (logior O_WRONLY O_CREAT O_BINARY) - #o600))) - (for-each-p "Unpacking samples" (lambda (name) (dearmor (in-srcdir (string-append name "o.asc")) name)) |