diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/dired-tests.el | 12 |
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 |