From 22f549e3056043a6e24fdb586090b33ad0c91095 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Fri, 27 Jul 2018 15:49:31 +0200 Subject: [PATCH] ; More instrumentation for shadowfile-tests.el --- test/lisp/shadowfile-tests.el | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/test/lisp/shadowfile-tests.el b/test/lisp/shadowfile-tests.el index 910845ad40a..2affe778deb 100644 --- a/test/lisp/shadowfile-tests.el +++ b/test/lisp/shadowfile-tests.el @@ -687,6 +687,7 @@ guaranteed by the originator of a cluster definition." (ert-deftest shadow-test08-shadow-todo () "Check that needed shadows are added to todo." (skip-unless (file-remote-p shadow-test-remote-temporary-file-directory)) + (skip-unless (file-writable-p shadow-test-remote-temporary-file-directory)) (let ((backup-inhibited t) (shadow-info-file shadow-test-info-file) @@ -742,12 +743,13 @@ guaranteed by the originator of a cluster definition." (message "Point 4") ;; Save file from "cluster2" definition. (with-temp-buffer - (message "Point 4.1") - (message "%s" file) - (message "%s" (shadow-site-primary cluster2)) - (setq buffer-file-name (concat (shadow-site-primary cluster2) file)) - (message "Point 4.2") + (message "Point 4.1") + (message "%s" file) + (message "%s" (shadow-site-primary cluster2)) + (setq buffer-file-name (concat (shadow-site-primary cluster2) file)) + (message "Point 4.2") (insert "foo") + (message "%s" buffer-file-name) (save-buffer)) (message "Point 4.3") (message "%s" (shadow-site-primary cluster2)) -- 2.39.2