1 files changed, 16 insertions, 0 deletions

diff --git a/test/lisp/ibuffer-tests.el b/test/lisp/ibuffer-tests.el
index a99a5754e2f..3a4def3a2b0 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