From 7d96ed541c242cb0ede4ca34df6ff97f432ac5e6 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Wed, 25 Jul 2018 20:48:10 +0200 Subject: [PATCH] ; 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 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)) -- 2.39.2