mirror of
git://git.gnupg.org/gnupg.git
synced 2025-01-17 14:07:03 +01:00
tests: Fix convenience function to run gpg.
* tests/openpgp/defs.scm (pipe:gpg): Remove stray dash. -- The extra dash is problematic at export and import because this does not export a single key as intended by the tests but does two key lookups where the second fails because that userid is always "-". For the current keyring and keybox code this does not matter because it is ignored. The keyboxd code however is more picky and returns an error. Fixes-commit: 9609cb20e4caee739b9fc4fd36797029d2970041 Signed-off-by: Werner Koch <wk@gnupg.org>
This commit is contained in:
parent
0ac003b457
commit
97798eec4b
@ -216,7 +216,7 @@
|
|||||||
(tr:spawn input `(,@GPG --output **out** ,@args **in**)))
|
(tr:spawn input `(,@GPG --output **out** ,@args **in**)))
|
||||||
|
|
||||||
(define (pipe:gpg args)
|
(define (pipe:gpg args)
|
||||||
(pipe:spawn `(,@GPG --output - ,@args -)))
|
(pipe:spawn `(,@GPG --output - ,@args)))
|
||||||
|
|
||||||
(define (gpg-with-colons args)
|
(define (gpg-with-colons args)
|
||||||
(let ((s (call-popen `(,@GPG --with-colons ,@args) "")))
|
(let ((s (call-popen `(,@GPG --with-colons ,@args) "")))
|
||||||
|
Loading…
x
Reference in New Issue
Block a user