mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 10:31:37 -08:00
Code Issues Projects Releases Wiki Activity

Simplify tramp-tests.el check for owncloud/nextcloud

Browse source 
* test/lisp/net/tramp-tests.el (tramp-test11-copy-file):
Simplify check for owncloud/nextcloud connections.
This commit is contained in:
Michael Albinus 2019-09-18 14:12:54 +02:00
parent 5ec42d5cb5
commit ffcec7cd4b
1 changed files with 2 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

7
test/lisp/net/tramp-tests.el
View file

@ -2412,9 +2412,7 @@ This checks also `file-name-as-directory', `file-name-directory',
(unwind-protect (unwind-protect
;; FIXME: This fails on my QNAP server, see ;; FIXME: This fails on my QNAP server, see
;; /share/Web/owncloud/data/owncloud.log ;; /share/Web/owncloud/data/owncloud.log
(unless (and (tramp--test-nextcloud-p) (unless (tramp--test-nextcloud-p)
(or (not (file-remote-p source))
(not (file-remote-p target))))
(make-directory source) (make-directory source)
(should (file-directory-p source)) (should (file-directory-p source))
(write-region "foo" nil (expand-file-name "foo" source)) (write-region "foo" nil (expand-file-name "foo" source))
@ -2437,8 +2435,7 @@ This checks also `file-name-as-directory', `file-name-directory',
(unwind-protect (unwind-protect
;; FIXME: This fails on my QNAP server, see ;; FIXME: This fails on my QNAP server, see
;; /share/Web/owncloud/data/owncloud.log ;; /share/Web/owncloud/data/owncloud.log
(unless (unless (tramp--test-nextcloud-p)
(and (tramp--test-nextcloud-p) (not (file-remote-p source)))
(make-directory source) (make-directory source)
(should (file-directory-p source)) (should (file-directory-p source))
(write-region "foo" nil (expand-file-name "foo" source)) (write-region "foo" nil (expand-file-name "foo" source))