1 ;;; ibuffer-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/>.
26 (ert-deftest ibuffer-autoload
()
27 "Tests to see whether reftex-auc has been autoloaded"
29 (fboundp 'ibuffer-mark-unsaved-buffers
))
33 'ibuffer-mark-unsaved-buffers
))))
35 (ert-deftest ibuffer-test-Bug25000
()
36 "Test for http://debbugs.gnu.org/25000 ."
37 :expected-result
:failed
38 (let ((case-fold-search t
)
39 (buf1 (generate-new-buffer "ibuffer-test-Bug25000-buf1"))
40 (buf2 (generate-new-buffer "ibuffer-test-Bug25000-buf2")))
44 (ibuffer-unmark-all-marks)
45 (ibuffer-mark-by-name-regexp (buffer-name buf1
))
46 (ibuffer-change-marks ibuffer-marked-char ?L
)
47 (ibuffer-mark-by-name-regexp (buffer-name buf2
))
48 (ibuffer-change-marks ibuffer-marked-char ?l
)
49 (should-not (cdr (ibuffer-buffer-names-with-mark ?l
))))
50 (mapc (lambda (buf) (when (buffer-live-p buf
)
51 (kill-buffer buf
))) (list buf1 buf2
)))))
53 (provide 'ibuffer-tests
)
54 ;; ibuffer-tests.el ends here