diff options
author | Tino Calancha <tino.calancha@gmail.com> | 2016-11-23 21:19:16 +0900 |
---|---|---|
committer | Tino Calancha <tino.calancha@gmail.com> | 2016-11-23 21:19:16 +0900 |
commit | d8a1a56f5bce64d6ea6ccecdf1aaa4eb3a9898da (patch) | |
tree | ba5a96c8b33d9a9229752456c2c534fa8e89b9a0 /test/lisp/ibuffer-tests.el | |
parent | c542fab20f53374dd0c71dce949ef370fc76fa48 (diff) | |
download | emacs-d8a1a56f5bce64d6ea6ccecdf1aaa4eb3a9898da.tar.gz |
* test/lisp/ibuffer-tests.el (ibuffer-test-Bug25000): Add test for Bug25000.
Diffstat (limited to 'test/lisp/ibuffer-tests.el')
-rw-r--r-- | test/lisp/ibuffer-tests.el | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/test/lisp/ibuffer-tests.el b/test/lisp/ibuffer-tests.el index de281c03735..a99a5754e2f 100644 --- a/test/lisp/ibuffer-tests.el +++ b/test/lisp/ibuffer-tests.el @@ -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 |