diff options
| author | Michael Albinus | 2016-01-11 19:43:36 +0100 |
|---|---|---|
| committer | Michael Albinus | 2016-01-11 19:43:36 +0100 |
| commit | 3adb56e7b2565ff7502bf0e9fb71eba0f82959ac (patch) | |
| tree | 1ac2b4f1de91951487d0190376c0d54e16ef14ab | |
| parent | 2b535ba929e5a97e85156a841bff3dd0fba06a09 (diff) | |
| download | emacs-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.el | 4 |
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. |