tests: Fix path to fake-pinentry.
authorJustus Winter <justus@g10code.com>
Thu, 4 Aug 2016 10:09:52 +0000 (12:09 +0200)
committerJustus Winter <justus@g10code.com>
Thu, 4 Aug 2016 10:09:52 +0000 (12:09 +0200)
* tests/openpgp/defs.scm: Correctly compute the path to fake-pinentry.

Signed-off-by: Justus Winter <justus@g10code.com>
tests/openpgp/defs.scm

index 9408cd5..2cbad46 100644 (file)
@@ -60,7 +60,8 @@
                           "agent/gpg-preset-passphrase")
     (mktdata "MKTDATA" "tools/mk-tdata")
     (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)
   (let ((t (assoc which tools))
@@ -77,7 +78,7 @@
 
 (define GPG `(,(tool 'gpg) --no-permission-warning
              ,@(if have-opt-always-trust '(--always-trust) '())))
-(define PINENTRY (string-append (getcwd) "/" (qualify "fake-pinentry")))
+(define PINENTRY (tool 'pinentry))
 
 (define (tr:gpg input args)
   (tr:spawn input `(,@GPG --output **out** ,@args **in**)))