1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-18 10:16:51 +00:00

; More instrumentation for shadowfile-tests.el

This commit is contained in:
Michael Albinus 2018-07-25 20:48:10 +02:00
parent c67407e752
commit 7d96ed541c

View File

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