tests: Add test for issue 2959.
[gnupg.git] / 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