From: Michael Albinus Date: Wed, 8 Aug 2018 14:22:23 +0000 (+0200) Subject: ; More instrumentation for shadowfile-tests.el X-Git-Tag: emacs-27.0.90~4628 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c85ff212dcd0817b833032650f1d52850e8a3c2e;p=emacs.git ; More instrumentation for shadowfile-tests.el --- diff --git a/test/lisp/shadowfile-tests.el b/test/lisp/shadowfile-tests.el index 085ab476ffe..0335caa5168 100644 --- a/test/lisp/shadowfile-tests.el +++ b/test/lisp/shadowfile-tests.el @@ -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))