From ffcec7cd4be83d03c21e7378efc55911b33696b1 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Wed, 18 Sep 2019 14:12:54 +0200 Subject: [PATCH] Simplify tramp-tests.el check for owncloud/nextcloud * test/lisp/net/tramp-tests.el (tramp-test11-copy-file): Simplify check for owncloud/nextcloud connections. --- test/lisp/net/tramp-tests.el | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el index 1554d3b70b1..d7e0a045106 100644 --- a/test/lisp/net/tramp-tests.el +++ b/test/lisp/net/tramp-tests.el @@ -2412,9 +2412,7 @@ This checks also `file-name-as-directory', `file-name-directory', (unwind-protect ;; FIXME: This fails on my QNAP server, see ;; /share/Web/owncloud/data/owncloud.log - (unless (and (tramp--test-nextcloud-p) - (or (not (file-remote-p source)) - (not (file-remote-p target)))) + (unless (tramp--test-nextcloud-p) (make-directory source) (should (file-directory-p 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 ;; FIXME: This fails on my QNAP server, see ;; /share/Web/owncloud/data/owncloud.log - (unless - (and (tramp--test-nextcloud-p) (not (file-remote-p source))) + (unless (tramp--test-nextcloud-p) (make-directory source) (should (file-directory-p source)) (write-region "foo" nil (expand-file-name "foo" source)) -- 2.39.5