Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
5936f6cd
Commit
5936f6cd
authored
Jul 14, 2018
by
Noam Postavsky
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
; Trace epg-tests gpg config finding (Bug#23561)
parent
9f25231f
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
15 additions
and
1 deletion
+15
-1
test/Makefile.in
test/Makefile.in
+1
-0
test/lisp/epg-tests.el
test/lisp/epg-tests.el
+14
-1
No files found.
test/Makefile.in
View file @
5936f6cd
...
...
@@ -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
...
...
test/lisp/epg-tests.el
View file @
5936f6cd
...
...
@@ -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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment