procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* test/lisp/ibuffer-tests.el (ibuffer-test-Bug25000): Add test for Bug25000.

Browse source
This commit is contained in:
Tino Calancha 2016-11-23 21:19:16 +09:00
parent c542fab20f
commit d8a1a56f5b
1 changed files with 20 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

20
test/lisp/ibuffer-tests.el
View file

@ -20,6 +20,8 @@
;;; Code:
(require 'ert)
(require 'ibuffer)
(eval-when-compile
(require 'ibuf-macs))
(ert-deftest ibuffer-autoload ()
"Tests to see whether reftex-auc has been autoloaded"
@ -30,5 +32,23 @@
(symbol-function
'ibuffer-mark-unsaved-buffers))))
(ert-deftest ibuffer-test-Bug25000 ()
"Test for http://debbugs.gnu.org/25000 ."
:expected-result :failed
(let ((case-fold-search t)
(buf1 (generate-new-buffer "ibuffer-test-Bug25000-buf1"))
(buf2 (generate-new-buffer "ibuffer-test-Bug25000-buf2")))
(ibuffer)
(unwind-protect
(ibuffer-save-marks
(ibuffer-unmark-all-marks)
(ibuffer-mark-by-name-regexp (buffer-name buf1))
(ibuffer-change-marks ibuffer-marked-char ?L)
(ibuffer-mark-by-name-regexp (buffer-name buf2))
(ibuffer-change-marks ibuffer-marked-char ?l)
(should-not (cdr (ibuffer-buffer-names-with-mark ?l))))
(mapc (lambda (buf) (when (buffer-live-p buf)
(kill-buffer buf))) (list buf1 buf2)))))
(provide 'ibuffer-tests)
;; ibuffer-tests.el ends here