; More instrumentation for shadowfile-tests.el

1 files changed, 7 insertions, 0 deletions

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))