From d8a1a56f5bce64d6ea6ccecdf1aaa4eb3a9898da Mon Sep 17 00:00:00 2001 From: Tino Calancha Date: Wed, 23 Nov 2016 21:19:16 +0900 Subject: [PATCH] * test/lisp/ibuffer-tests.el (ibuffer-test-Bug25000): Add test for Bug25000. --- test/lisp/ibuffer-tests.el | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) 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 -- 2.39.5