[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master c85ff21: ; More instrumentation for shadowfile-test
From: |
Michael Albinus |
Subject: |
[Emacs-diffs] master c85ff21: ; More instrumentation for shadowfile-tests.el |
Date: |
Wed, 8 Aug 2018 10:22:39 -0400 (EDT) |
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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master c85ff21: ; More instrumentation for shadowfile-tests.el,
Michael Albinus <=