diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2018-07-21 12:29:06 +0200 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2018-07-21 12:29:06 +0200 |
| commit | e0f33ea394c636ab1aa2412b4f35b7dfc1ca768a (patch) | |
| tree | 1a97f9cac5cb99889bb38256fdf2753d5c76afd4 /test/lisp/shadowfile-tests.el | |
| parent | 7308fa0e2b8d929a4e0f7f54ac46228f93674672 (diff) | |
| download | emacs-e0f33ea394c636ab1aa2412b4f35b7dfc1ca768a.tar.gz emacs-e0f33ea394c636ab1aa2412b4f35b7dfc1ca768a.tar.bz2 emacs-e0f33ea394c636ab1aa2412b4f35b7dfc1ca768a.zip | |
Fix Bug#32226
* lisp/shadowfile.el (shadow-site-name, shadow-name-site):
Use "[-.[:word:]]+" as hostname regexp. (Bug#32226)
* test/lisp/shadowfile-tests.el (shadow-test06-literal-groups)
(shadow-test07-regexp-groups, shadow-test08-shadow-todo)
(shadow-test09-shadow-copy-files): Skip if needed.
Diffstat (limited to 'test/lisp/shadowfile-tests.el')
| -rw-r--r-- | test/lisp/shadowfile-tests.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/test/lisp/shadowfile-tests.el b/test/lisp/shadowfile-tests.el index 5ded94480ec..200fb4c58c6 100644 --- a/test/lisp/shadowfile-tests.el +++ b/test/lisp/shadowfile-tests.el @@ -556,6 +556,8 @@ guaranteed by the originator of a cluster definition." (ert-deftest shadow-test06-literal-groups () "Check literal group definitions." + (skip-unless (file-remote-p shadow-test-remote-temporary-file-directory)) + (let ((shadow-info-file shadow-test-info-file) (shadow-todo-file shadow-test-todo-file) shadow-clusters shadow-literal-groups @@ -618,6 +620,8 @@ guaranteed by the originator of a cluster definition." (ert-deftest shadow-test07-regexp-groups () "Check regexp group definitions." + (skip-unless (file-remote-p shadow-test-remote-temporary-file-directory)) + (let ((shadow-info-file shadow-test-info-file) (shadow-todo-file shadow-test-todo-file) shadow-clusters shadow-regexp-groups @@ -682,6 +686,8 @@ 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)) + (let ((backup-inhibited t) (shadow-info-file shadow-test-info-file) (shadow-todo-file shadow-test-todo-file) @@ -780,6 +786,8 @@ guaranteed by the originator of a cluster definition." (ert-deftest shadow-test09-shadow-copy-files () "Check that needed shadow files are copied." + (skip-unless (file-remote-p shadow-test-remote-temporary-file-directory)) + (let ((backup-inhibited t) (shadow-info-file shadow-test-info-file) (shadow-todo-file shadow-test-todo-file) |