; Trace epg-tests gpg config finding (Bug#23561)

diff --git a/test/Makefile.in b/test/Makefile.in
index 0bc893bc0c69b3f5c9194c734c589096d7db3d62..6070932508d47c0165bd080c6885a41b7b32827c 100644 (file)
--- a/test/Makefile.in
+++ b/test/Makefile.in
@@ -169,6 +169,7 @@ WRITE_LOG = > $@ 2>&1 || { STAT=$$?; cat $@; exit $$STAT; }
 ifdef EMACS_HYDRA_CI
 ## On Hydra, always show logs for certain problematic tests.
 lisp/net/tramp-tests.log \
+lisp/epg-tests.log \
 : WRITE_LOG = 2>&1 | tee $@
 endif
 

diff --git a/test/lisp/epg-tests.el b/test/lisp/epg-tests.el
index 7efe04bfc007e66b477d78a826e5ac16b1f6bcc3..361ba8fc0c24470643ee84b775a4442a73fca6ef 100644 (file)
--- a/test/lisp/epg-tests.el
+++ b/test/lisp/epg-tests.el
@@ -23,6 +23,7 @@
 
 (require 'ert)
 (require 'epg)
+(require 'trace)
 
 (defvar epg-tests-context nil)
 
@@ -42,7 +43,19 @@
     prog-alist))
 
 (defun epg-tests-find-usable-gpg-configuration (&optional _require-passphrase)
-  (epg-find-configuration 'OpenPGP 'no-cache epg-tests--config-program-alist))
+  ;; Tracing for Bug#23561, but only do it once per run.
+  (if (get-buffer "*trace-output*")
+      (epg-find-configuration 'OpenPGP 'no-cache epg-tests--config-program-alist)
+    (dolist (fun '(epg-find-configuration
+                   executable-find
+                   epg-check-configuration
+                   epg-config--make-gpg-configuration))
+      (trace-function-background fun))
+    (prog1 (unwind-protect
+               (epg-find-configuration 'OpenPGP 'no-cache epg-tests--config-program-alist)
+             (untrace-all))
+      (princ (with-current-buffer "*trace-output*" (buffer-string))
+             #'external-debugging-output))))
 
 (defun epg-tests-passphrase-callback (_c _k _d)
   ;; Need to create a copy here, since the string will be wiped out