tests: Enable tests with keyboxd only when it's configured.

* tests/gpgscm/tests.scm (in-objdir): Move from...
* g13/all-tests.scm: ... here.
* tests/openpgp/all-tests.scm (keyboxd-enabled?): New.
(tests): Enable when keyboxd-enabled?.

--

GnuPG-bug-id: 5966
Signed-off-by: NIIBE Yutaka <gniibe@fsij.org>

g13/all-tests.scm

@@ -26,9 +26,6 @@
  (define (parse filename key)
    (parse-makefile-expand filename expander key))
 
- (define (in-objdir . names)
-   (canonical-path (apply path-join (cons (getenv "objdir") names))))
-
  (define g13-enabled?
    ;; Parse the variable "g13" in the Makefile
    (not (null?

tests/gpgscm/tests.scm

@@ -192,6 +192,9 @@
 (define (in-srcdir . names)
   (canonical-path (apply path-join (cons (getenv "abs_top_srcdir") names))))
 
+(define (in-objdir . names)
+  (canonical-path (apply path-join (cons (getenv "objdir") names))))
+
 ;; Split a list of paths.
 (define (pathsep-split s)
   (string-split s *pathsep*))

tests/openpgp/all-tests.scm

@@ -52,6 +52,13 @@
 			  (lambda (filename port key) (parse-makefile port key))
 			  "XTESTS"))
 
+ (define keyboxd-enabled?
+   ;; Parse the variable "libexec_PROGRAMS" in kbx/Makefile
+   (not (null?
+	 (parse-makefile-expand (in-objdir "kbx" "Makefile")
+				(lambda (filename port key) (parse-makefile port key))
+				"libexec_PROGRAMS"))))
+
  (define tests
    (map (lambda (name)
 	  (test::scm setup
@@ -63,12 +70,13 @@
 	     (append
 	      tests
 	      ;; The second pass uses the keyboxd
+	      (if keyboxd-enabled?
 		  (map (lambda (name)
 			 (test::scm setup-use-keyboxd
 				    (qualify (path-join "tests" "openpgp" name)
 					     "keyboxd")
 				    (in-srcdir "tests" "openpgp" name)
-				"--use-keyboxd")) all-tests)
+				    "--use-keyboxd")) all-tests))
 	      ;; The third pass uses the legact pubring.gpg
 	      (map (lambda (name)
 		     (test::scm setup-use-keyring