1 ;;; dired-tests.el --- Test suite. -*- lexical-binding: t -*-
3 ;; Copyright (C) 2015-2016 Free Software Foundation, Inc.
5 ;; This file is part of GNU Emacs.
7 ;; GNU Emacs is free software: you can redistribute it and/or modify
8 ;; it under the terms of the GNU General Public License as published by
9 ;; the Free Software Foundation, either version 3 of the License, or
10 ;; (at your option) any later version.
12 ;; GNU Emacs is distributed in the hope that it will be useful,
13 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
14 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 ;; GNU General Public License for more details.
17 ;; You should have received a copy of the GNU General Public License
18 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
25 (ert-deftest dired-autoload ()
26 "Tests to see whether dired-x has been autoloaded"
28 (fboundp 'dired-jump))
34 (ert-deftest dired-test-bug22694 ()
35 "Test for http://debbugs.gnu.org/22694 ."
36 (let* ((dir (expand-file-name "bug22694" default-directory))
38 (full-name (expand-file-name file dir))
40 (dired-always-read-filesystem t))
42 (with-temp-file full-name (insert "foo"))
43 (find-file-noselect full-name)
45 (with-temp-file full-name (insert "bar"))
46 (dired-mark-files-containing-regexp regexp)
48 (should (equal (dired-get-marked-files nil nil nil 'distinguish-1-mark)
51 (delete-directory dir 'recursive))))
53 (provide 'dired-tests)
54 ;; dired-tests.el ends here