Commit 7d96ed54 authored by Michael Albinus's avatar Michael Albinus

; More instrumentation for shadowfile-tests.el

parent c67407e7
......@@ -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))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment