; 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 c38d49e61f2..a302b1cdacb 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))