emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] master ffcec7c 2/2: Simplify tramp-tests.el check for ownc


From: Michael Albinus
Subject: [Emacs-diffs] master ffcec7c 2/2: Simplify tramp-tests.el check for owncloud/nextcloud
Date: Wed, 18 Sep 2019 08:13:04 -0400 (EDT)

branch: master
commit ffcec7cd4be83d03c21e7378efc55911b33696b1
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>

    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 1554d3b..d7e0a04 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))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]