tests: Fix using tools from the build directory.
authorJustus Winter <justus@g10code.com>
Wed, 15 Mar 2017 13:36:27 +0000 (14:36 +0100)
committerJustus Winter <justus@g10code.com>
Wed, 15 Mar 2017 13:36:27 +0000 (14:36 +0100)
* tests/openpgp/defs.scm (gpg-conf'): Explicitly pass the build prefix
to gpgconf here...
(gpg-components): ... instead of only here.
--

Previously, gpgconf was not invoked with '--build-prefix' when
changing the configuration.  This made tests using this facility fail
(e.g. the TOFU test).  This only affected release builds, because in
development builds gpgconf picks up the build prefix from the
environment.

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

index 568ffab..7c8e10a 100644 (file)
 (define valgrind
   '("/usr/bin/valgrind" --leak-check=full --error-exitcode=154))
 
+(unless installed?
+       (setenv "GNUPG_BUILDDIR" (getenv "objdir") #t))
+
 (define (gpg-conf . args)
   (gpg-conf' "" args))
 (define (gpg-conf' input args)
-  (let ((s (call-popen `(,(tool-hardcoded 'gpgconf) ,@args) input)))
+  (let ((s (call-popen `(,(tool-hardcoded 'gpgconf)
+                        ,@(if installed? '()
+                              (list '--build-prefix (getenv "objdir")))
+                        ,@args) input)))
     (map (lambda (line) (map percent-decode (string-split line #\:)))
         (string-split-newlines s))))
 (define :gc:c:name car)
      (gpg-conf' (string-append key ":16:")
                `(--change-options ,component)))))
 
-
-(unless installed?
-       (setenv "GNUPG_BUILDDIR" (getenv "objdir") #t))
-(define gpg-components (apply gpg-conf
-                       `(,@(if installed? '()
-                               (list '--build-prefix (getenv "objdir")))
-                         --list-components)))
+(define gpg-components (apply gpg-conf '(--list-components)))
 
 (define (tool which)
   (case which