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

[Michael Albinus]

branch: master
commit 7d96ed541c242cb0ede4ca34df6ff97f432ac5e6
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 c38d49e..a302b1c 100644
--- a/test/lisp/shadowfile-tests.el
+++ b/test/lisp/shadowfile-tests.el
@@ -704,6 +704,7 @@ guaranteed by the originator of a cluster definition."
          (when (file-exists-p shadow-todo-file)
            (delete-file shadow-todo-file))
 
+          (message "Point 1")
           ;; Define clusters.
          (setq cluster1 "cluster1"
                primary shadow-system-name
@@ -716,6 +717,7 @@ guaranteed by the originator of a cluster definition."
                regexp (shadow-regexp-superquote primary))
          (shadow-set-cluster cluster2 primary regexp)
 
+          (message "Point 2")
          ;; Define a literal group.
          (setq file
                (make-temp-name
@@ -723,6 +725,7 @@ guaranteed by the originator of a cluster definition."
                 shadow-literal-groups
                 `((,(concat "/cluster1:" file) ,(concat "/cluster2:" file))))
 
+          (message "Point 3")
           ;; Save file from "cluster1" definition.
           (with-temp-buffer
             (setq buffer-file-name file)
@@ -733,6 +736,7 @@ guaranteed by the originator of a cluster definition."
             (cons file (shadow-contract-file-name (concat "/cluster2:" file)))
             shadow-files-to-copy))
 
+          (message "Point 4")
           ;; Save file from "cluster2" definition.
           (with-temp-buffer
             (setq buffer-file-name (concat (shadow-site-primary cluster2) 
file))
@@ -745,6 +749,7 @@ guaranteed by the originator of a cluster definition."
              (shadow-contract-file-name (concat "/cluster1:" file)))
             shadow-files-to-copy))
 
+          (message "Point 5")
          ;; Define a regexp group.
          (setq shadow-files-to-copy nil
                 shadow-regexp-groups
@@ -753,6 +758,7 @@ guaranteed by the originator of a cluster definition."
                    ,(concat (shadow-site-primary cluster2)
                             (shadow-regexp-superquote file)))))
 
+          (message "Point 6")
           ;; Save file from "cluster1" definition.
           (with-temp-buffer
             (setq buffer-file-name file)
@@ -763,6 +769,7 @@ guaranteed by the originator of a cluster definition."
             (cons file (shadow-contract-file-name (concat "/cluster2:" file)))
             shadow-files-to-copy))
 
+          (message "Point 7")
           ;; Save file from "cluster2" definition.
           (with-temp-buffer
             (setq buffer-file-name (concat (shadow-site-primary cluster2) 
file))