; More instrumentation for shadowfile-tests.el

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