security-and-privacy/gnupg
security-and-privacy/gnupg
1
0
Fork 0
mirror of git://git.gnupg.org/gnupg.git synced 2025-07-02 22:46:30 +02:00
Code Activity

tests/openpgp: Improve tests.

Browse source 
* tests/openpgp/multisig.scm: Simplify test.
* tests/openpgp/setup.scm (dearmor): Use pipe.

Signed-off-by: Justus Winter <justus@g10code.com>
This commit is contained in:
Justus Winter 2016-06-23 17:14:07 +02:00
parent 332fa86982
commit 1e822654c1
2 changed files with 14 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

9
tests/openpgp/setup.scm
View file

@ -56,9 +56,12 @@
'(500 9000 32000 80000))
(define (dearmor source-name sink-name)
(letfd ((source (open source-name (logior O_RDONLY O_BINARY)))
(sink (open sink-name (logior O_WRONLY O_CREAT O_BINARY) #o600)))
(call-with-fds `(,@GPG --dearmor) source sink STDERR_FILENO)))
(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)