security-and-privacy/gnupg
security-and-privacy/gnupg
1
0
Fork 0
mirror of git://git.gnupg.org/gnupg.git synced 2024-06-05 23:07:49 +02:00
Code Activity

tests: Fix path to fake-pinentry.

Browse Source 
* tests/openpgp/defs.scm: Correctly compute the path to fake-pinentry.

Signed-off-by: Justus Winter <justus@g10code.com>
This commit is contained in:
Justus Winter 2016-08-04 12:09:52 +02:00
parent 89234f7f36
commit 3566544d04
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
tests/openpgp/defs.scm
View File

@ -60,7 +60,8 @@
"agent/gpg-preset-passphrase") "agent/gpg-preset-passphrase")
(mktdata "MKTDATA" "tools/mk-tdata") (mktdata "MKTDATA" "tools/mk-tdata")
(gpgtar "GPGTAR" "tools/gpgtar") (gpgtar "GPGTAR" "tools/gpgtar")
(gpg-zip "GPGZIP" "tools/gpg-zip"))) (gpg-zip "GPGZIP" "tools/gpg-zip")
(pinentry "PINENTRY" "tests/openpgp/fake-pinentry")))
(define (tool which) (define (tool which)
(let ((t (assoc which tools)) (let ((t (assoc which tools))
@ -77,7 +78,7 @@
(define GPG `(,(tool 'gpg) --no-permission-warning (define GPG `(,(tool 'gpg) --no-permission-warning
,@(if have-opt-always-trust '(--always-trust) '()))) ,@(if have-opt-always-trust '(--always-trust) '())))
(define PINENTRY (string-append (getcwd) "/" (qualify "fake-pinentry"))) (define PINENTRY (tool 'pinentry))
(define (tr:gpg input args) (define (tr:gpg input args)
(tr:spawn input `(,@GPG --output **out** ,@args **in**))) (tr:spawn input `(,@GPG --output **out** ,@args **in**)))