[Emacs-diffs] master c85ff21: ; More instrumentation for shadowfile-tests.el

[Michael Albinus]

branch: master
commit c85ff212dcd0817b833032650f1d52850e8a3c2e
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>

    ; More instrumentation for shadowfile-tests.el
---
 test/lisp/shadowfile-tests.el | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/test/lisp/shadowfile-tests.el b/test/lisp/shadowfile-tests.el
index 085ab47..0335caa 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))