diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2018-07-25 22:04:34 +0200 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2018-07-25 22:04:34 +0200 |
| commit | 244b6827257fb0ec9c14f19b9dd01a0e1bee1d75 (patch) | |
| tree | f7fec661fcc4a2769f00a8307291ad5c58c151ce | |
| parent | a3b32a8be1e01ba10ecae9abc27214298467c995 (diff) | |
| download | emacs-244b6827257fb0ec9c14f19b9dd01a0e1bee1d75.tar.gz | |
; More instrumentation for shadowfile-tests.el
| -rw-r--r-- | test/lisp/shadowfile-tests.el | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/test/lisp/shadowfile-tests.el b/test/lisp/shadowfile-tests.el index a302b1cdacb..83e9a36af31 100644 --- a/test/lisp/shadowfile-tests.el +++ b/test/lisp/shadowfile-tests.el @@ -731,6 +731,9 @@ guaranteed by the originator of a cluster definition." (setq buffer-file-name file) (insert "foo") (save-buffer)) + (message "%s" file) + (message "%s" (shadow-contract-file-name (concat "/cluster2:" file))) + (message "%s" shadow-files-to-copy) (should (member (cons file (shadow-contract-file-name (concat "/cluster2:" file))) @@ -739,9 +742,15 @@ guaranteed by the originator of a cluster definition." (message "Point 4") ;; Save file from "cluster2" definition. (with-temp-buffer - (setq buffer-file-name (concat (shadow-site-primary cluster2) file)) + (message "Point 4.1") + (setq buffer-file-name (concat (shadow-site-primary cluster2) file)) + (message "Point 4.2") (insert "foo") (save-buffer)) + (message "Point 4.3") + (message "%s" (shadow-site-primary cluster2)) + (message "%s" (shadow-contract-file-name (concat "/cluster1:" file))) + (message "%s" shadow-files-to-copy) (should (member (cons |