; More instrumentation for shadowfile-tests.el

diff --git a/test/lisp/shadowfile-tests.el b/test/lisp/shadowfile-tests.el
index 085ab476ffe0a7f6baeaa0ec88aec9c061c7b117..0335caa51682cb6b16e74330ff76e77c09c7ffac 100644 (file)
--- 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))