emacs-diffs
[Top][All Lists]
Advanced

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

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


From: Tino Calancha
Subject: [Emacs-diffs] master 561ce85: * test/lisp/ibuffer-tests.el (ibuffer-test-Bug24997): Add test for Bug#24997.
Date: Thu, 24 Nov 2016 01:44:15 +0000 (UTC)

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

    * test/lisp/ibuffer-tests.el (ibuffer-test-Bug24997): Add test for 
Bug#24997.
---
 test/lisp/ibuffer-tests.el |   16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/test/lisp/ibuffer-tests.el b/test/lisp/ibuffer-tests.el
index a99a575..3a4def3 100644
--- a/test/lisp/ibuffer-tests.el
+++ b/test/lisp/ibuffer-tests.el
@@ -32,6 +32,22 @@
     (symbol-function
      'ibuffer-mark-unsaved-buffers))))
 
+(ert-deftest ibuffer-test-Bug24997 ()
+  "Test for http://debbugs.gnu.org/24997 ."
+  :expected-result :failed
+  (ibuffer)
+  (let ((orig ibuffer-filtering-qualifiers))
+    (unwind-protect
+        (progn
+          (setq ibuffer-filtering-qualifiers
+                '((size-gt . 10)
+                  (used-mode . lisp-interaction-mode)))
+          (ibuffer-update nil t)
+          (ignore-errors (ibuffer-decompose-filter))
+          (should (cdr ibuffer-filtering-qualifiers)))
+      (setq ibuffer-filtering-qualifiers orig)
+      (ibuffer-update nil t))))
+
 (ert-deftest ibuffer-test-Bug25000 ()
   "Test for http://debbugs.gnu.org/25000 ."
   :expected-result :failed



reply via email to

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