]> git.eshelyaron.com Git - emacs.git/commitdiff
Simplify tramp-tests.el check for owncloud/nextcloud
authorMichael Albinus <michael.albinus@gmx.de>
Wed, 18 Sep 2019 12:12:54 +0000 (14:12 +0200)
committerMichael Albinus <michael.albinus@gmx.de>
Wed, 18 Sep 2019 12:12:54 +0000 (14:12 +0200)
* test/lisp/net/tramp-tests.el (tramp-test11-copy-file):
Simplify check for owncloud/nextcloud connections.

test/lisp/net/tramp-tests.el

index 1554d3b70b18acaadcc61cbcd0480bfbd2ec254b..d7e0a0451060b48bb108dfd5d8bfa467ea0f1fc3 100644 (file)
@@ -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))