From: Michael Albinus <michael.albinus@gmx.de>
Date: Wed, 25 Jul 2018 18:48:10 +0000 (+0200)
Subject: ; More instrumentation for shadowfile-tests.el
X-Git-Tag: emacs-27.0.90~4664^2~29
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7d96ed541c242cb0ede4ca34df6ff97f432ac5e6;p=emacs.git

; More instrumentation for shadowfile-tests.el
---

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))