aboutsummaryrefslogtreecommitdiffstats
path: root/test
diff options
context:
space:
mode:
Diffstat (limited to 'test')
-rw-r--r--test/lisp/net/tramp-tests.el16
1 files changed, 8 insertions, 8 deletions
diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index 5c5eff8798d..c0298bb7090 100644
--- a/test/lisp/net/tramp-tests.el
+++ b/test/lisp/net/tramp-tests.el
@@ -2182,7 +2182,7 @@ This checks also `file-name-as-directory', `file-name-directory',
2182 (unwind-protect 2182 (unwind-protect
2183 ;; FIXME: This fails on my QNAP server, see 2183 ;; FIXME: This fails on my QNAP server, see
2184 ;; /share/Web/owncloud/data/owncloud.log 2184 ;; /share/Web/owncloud/data/owncloud.log
2185 (unless (tramp--test-owncloud-p) 2185 (unless (tramp--test-nextcloud-p)
2186 (write-region "foo" nil source) 2186 (write-region "foo" nil source)
2187 (should (file-exists-p source)) 2187 (should (file-exists-p source))
2188 (make-directory target) 2188 (make-directory target)
@@ -2205,7 +2205,7 @@ This checks also `file-name-as-directory', `file-name-directory',
2205 (unwind-protect 2205 (unwind-protect
2206 ;; FIXME: This fails on my QNAP server, see 2206 ;; FIXME: This fails on my QNAP server, see
2207 ;; /share/Web/owncloud/data/owncloud.log 2207 ;; /share/Web/owncloud/data/owncloud.log
2208 (unless (and (tramp--test-owncloud-p) 2208 (unless (and (tramp--test-nextcloud-p)
2209 (or (not (file-remote-p source)) 2209 (or (not (file-remote-p source))
2210 (not (file-remote-p target)))) 2210 (not (file-remote-p target))))
2211 (make-directory source) 2211 (make-directory source)
@@ -2231,7 +2231,7 @@ This checks also `file-name-as-directory', `file-name-directory',
2231 ;; FIXME: This fails on my QNAP server, see 2231 ;; FIXME: This fails on my QNAP server, see
2232 ;; /share/Web/owncloud/data/owncloud.log 2232 ;; /share/Web/owncloud/data/owncloud.log
2233 (unless 2233 (unless
2234 (and (tramp--test-owncloud-p) (not (file-remote-p source))) 2234 (and (tramp--test-nextcloud-p) (not (file-remote-p source)))
2235 (make-directory source) 2235 (make-directory source)
2236 (should (file-directory-p source)) 2236 (should (file-directory-p source))
2237 (write-region "foo" nil (expand-file-name "foo" source)) 2237 (write-region "foo" nil (expand-file-name "foo" source))
@@ -2320,7 +2320,7 @@ This checks also `file-name-as-directory', `file-name-directory',
2320 (unwind-protect 2320 (unwind-protect
2321 ;; FIXME: This fails on my QNAP server, see 2321 ;; FIXME: This fails on my QNAP server, see
2322 ;; /share/Web/owncloud/data/owncloud.log 2322 ;; /share/Web/owncloud/data/owncloud.log
2323 (unless (tramp--test-owncloud-p) 2323 (unless (tramp--test-nextcloud-p)
2324 (make-directory source) 2324 (make-directory source)
2325 (should (file-directory-p source)) 2325 (should (file-directory-p source))
2326 (write-region "foo" nil (expand-file-name "foo" source)) 2326 (write-region "foo" nil (expand-file-name "foo" source))
@@ -2344,7 +2344,7 @@ This checks also `file-name-as-directory', `file-name-directory',
2344 (unwind-protect 2344 (unwind-protect
2345 ;; FIXME: This fails on my QNAP server, see 2345 ;; FIXME: This fails on my QNAP server, see
2346 ;; /share/Web/owncloud/data/owncloud.log 2346 ;; /share/Web/owncloud/data/owncloud.log
2347 (unless (tramp--test-owncloud-p) 2347 (unless (tramp--test-nextcloud-p)
2348 (make-directory source) 2348 (make-directory source)
2349 (should (file-directory-p source)) 2349 (should (file-directory-p source))
2350 (write-region "foo" nil (expand-file-name "foo" source)) 2350 (write-region "foo" nil (expand-file-name "foo" source))
@@ -4427,10 +4427,10 @@ This does not support external Emacs calls."
4427 (string-equal 4427 (string-equal
4428 "mock" (file-remote-p tramp-test-temporary-file-directory 'method))) 4428 "mock" (file-remote-p tramp-test-temporary-file-directory 'method)))
4429 4429
4430(defun tramp--test-owncloud-p () 4430(defun tramp--test-nextcloud-p ()
4431 "Check, whether the owncloud method is used." 4431 "Check, whether the nextcloud method is used."
4432 (string-equal 4432 (string-equal
4433 "owncloud" (file-remote-p tramp-test-temporary-file-directory 'method))) 4433 "nextcloud" (file-remote-p tramp-test-temporary-file-directory 'method)))
4434 4434
4435(defun tramp--test-rsync-p () 4435(defun tramp--test-rsync-p ()
4436 "Check, whether the rsync method is used. 4436 "Check, whether the rsync method is used.