diff options
| author | Tino Calancha <tino.calancha@gmail.com> | 2016-07-11 14:34:49 +0900 |
|---|---|---|
| committer | Tino Calancha <tino.calancha@gmail.com> | 2016-07-11 14:34:49 +0900 |
| commit | df7774be39af76d3072a0278ef815a47bf50dfe9 (patch) | |
| tree | f722a0fa5197618c29b1bee0b33ab875f97f188a /test | |
| parent | bfeda891a51178dd0032800ea4aef013c62bbe10 (diff) | |
Dired always read file system
* dired.el (dired-always-read-filesystem): Add new option.
(dired-mark-files-containing-regexp): Use it (Bug#22694).
* doc/emacs/dired.texi: Mention it in the manual.
* test/lisp/dired-tests.el (dired-test-bug22694): Add test.
;* etc/NEWS: Add entry for this change.
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/dired-tests.el | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/test/lisp/dired-tests.el b/test/lisp/dired-tests.el index 3efe259913..d66a9caedd 100644 --- a/test/lisp/dired-tests.el +++ b/test/lisp/dired-tests.el @@ -31,5 +31,24 @@ (symbol-function 'dired-jump)))) +(ert-deftest dired-test-bug22694 () + "Test for http://debbugs.gnu.org/22694 ." + (let* ((dir (expand-file-name "bug22694" default-directory)) + (file "test") + (full-name (expand-file-name file dir)) + (regexp "bar") + (dired-always-read-filesystem t)) + (make-directory dir) + (with-temp-file full-name (insert "foo")) + (find-file-noselect full-name) + (dired dir) + (with-temp-file full-name (insert "bar")) + (dired-mark-files-containing-regexp regexp) + (unwind-protect + (should (equal (dired-get-marked-files nil nil nil 'distinguish-1-mark) + `(t ,full-name))) + ;; Clean up + (delete-directory dir 'recursive)))) + (provide 'dired-tests) ;; dired-tests.el ends here |