Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-25 14:27:34 +00:00
Code Issues Projects Releases Packages Wiki Activity

; More instrumentation for shadowfile-tests.el

Browse source
This commit is contained in:
Michael Albinus 2018-08-08 16:22:23 +02:00
parent c9f13b9ea3
commit c85ff212dc
1 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
test/lisp/shadowfile-tests.el
View file

@ -720,6 +720,10 @@ guaranteed by the originator of a cluster definition."
(unwind-protect
(condition-case err
(progn
(require 'trace)
(dolist (elt (all-completions "shadow-" obarray 'functionp))
(trace-function-background (intern elt)))
(trace-function-background 'save-buffer)
;; Cleanup.
(when (file-exists-p shadow-info-file)
(delete-file shadow-info-file))
@ -817,6 +821,9 @@ guaranteed by the originator of a cluster definition."
shadow-files-to-copy)))
(error (message "Error: %s" err) (signal (car err) (cdr err))))
(untrace-all)
(message "%s" (with-current-buffer trace-buffer (buffer-string)))
;; Cleanup.
(when (file-exists-p shadow-info-file)
(delete-file shadow-info-file))