aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMichael Albinus2016-01-11 19:43:36 +0100
committerMichael Albinus2016-01-11 19:43:36 +0100
commit3adb56e7b2565ff7502bf0e9fb71eba0f82959ac (patch)
tree1ac2b4f1de91951487d0190376c0d54e16ef14ab
parent2b535ba929e5a97e85156a841bff3dd0fba06a09 (diff)
downloademacs-3adb56e7b2565ff7502bf0e9fb71eba0f82959ac.tar.gz
emacs-3adb56e7b2565ff7502bf0e9fb71eba0f82959ac.zip
Minor change in tramp-tests.el
* test/automated/tramp-tests.el (tramp-test29-vc-registered): Use `dired-uncache' instead of a Tramp internal function.
-rw-r--r--test/automated/tramp-tests.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/test/automated/tramp-tests.el b/test/automated/tramp-tests.el
index 915b30f5e08..a29e42e7343 100644
--- a/test/automated/tramp-tests.el
+++ b/test/automated/tramp-tests.el
@@ -44,6 +44,7 @@
44(require 'vc-git) 44(require 'vc-git)
45(require 'vc-hg) 45(require 'vc-hg)
46 46
47(autoload 'dired-uncache "dired")
47(declare-function tramp-find-executable "tramp-sh") 48(declare-function tramp-find-executable "tramp-sh")
48(declare-function tramp-get-remote-path "tramp-sh") 49(declare-function tramp-get-remote-path "tramp-sh")
49(declare-function tramp-get-remote-stat "tramp-sh") 50(declare-function tramp-get-remote-stat "tramp-sh")
@@ -1660,8 +1661,7 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'."
1660 (list (file-name-nondirectory tmp-name2)))))) 1661 (list (file-name-nondirectory tmp-name2))))))
1661 ;; vc-git uses an own process sentinel, Tramp's sentinel 1662 ;; vc-git uses an own process sentinel, Tramp's sentinel
1662 ;; for flushing the cache isn't used. 1663 ;; for flushing the cache isn't used.
1663 (with-parsed-tramp-file-name tmp-name1 nil 1664 (dired-uncache (concat (file-remote-p default-directory) "/"))
1664 (tramp-flush-directory-property v localname))
1665 (should (vc-registered (file-name-nondirectory tmp-name2))))) 1665 (should (vc-registered (file-name-nondirectory tmp-name2)))))
1666 1666
1667 ;; Cleanup. 1667 ;; Cleanup.