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:
parent
c67407e752
commit
7d96ed541c
@ -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))
|
||||
|
Loading…
Reference in New Issue
Block a user