aboutsummaryrefslogtreecommitdiffstats
path: root/test
diff options
context:
space:
mode:
Diffstat (limited to 'test')
-rw-r--r--test/lisp/dired-tests.el12
1 files changed, 12 insertions, 0 deletions
diff --git a/test/lisp/dired-tests.el b/test/lisp/dired-tests.el
index 1b814baac58..208e1c25091 100644
--- a/test/lisp/dired-tests.el
+++ b/test/lisp/dired-tests.el
@@ -84,5 +84,17 @@
84 (advice-remove 'dired-query "advice-dired-query") 84 (advice-remove 'dired-query "advice-dired-query")
85 (advice-remove 'completing-read "advice-completing-read")))) 85 (advice-remove 'completing-read "advice-completing-read"))))
86 86
87(ert-deftest dired-test-bug27693 ()
88 "Test for http://debbugs.gnu.org/27693 ."
89 (require 'ls-lisp)
90 (let ((size "")
91 ls-lisp-use-insert-directory-program)
92 (dired (list (expand-file-name "lisp" source-directory) "simple.el" "subr.el"))
93 (setq size (number-to-string
94 (file-attribute-size
95 (file-attributes (dired-get-filename)))))
96 (search-backward-regexp size nil t)
97 (should (looking-back "[[:space:]]" (1- (point))))))
98
87(provide 'dired-tests) 99(provide 'dired-tests)
88;; dired-tests.el ends here 100;; dired-tests.el ends here