emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] master d8a1a56: * test/lisp/ibuffer-tests.el (ibuffer-test


From: Tino Calancha
Subject: [Emacs-diffs] master d8a1a56: * test/lisp/ibuffer-tests.el (ibuffer-test-Bug25000): Add test for Bug25000.
Date: Wed, 23 Nov 2016 12:21:58 +0000 (UTC)

branch: master
commit d8a1a56f5bce64d6ea6ccecdf1aaa4eb3a9898da
Author: Tino Calancha <address@hidden>
Commit: Tino Calancha <address@hidden>

    * 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 de281c0..a99a575 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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]