diff options
| author | Tino Calancha | 2016-12-07 22:02:54 +0900 |
|---|---|---|
| committer | Tino Calancha | 2016-12-07 22:02:54 +0900 |
| commit | e41e89d128764c5a2205665ab70b3449c3014abf (patch) | |
| tree | 855171e078c749685554ce505ae2f55483037d64 /test | |
| parent | 53fefb55c5cd8a56f3273daaba21b1aa03de557a (diff) | |
| download | emacs-e41e89d128764c5a2205665ab70b3449c3014abf.tar.gz emacs-e41e89d128764c5a2205665ab70b3449c3014abf.zip | |
define-ibuffer-filter: Discard wrong filters
* lisp/ibuf-macs.el (define-ibuffer-filter): Do not store
in 'ibuffer-filtering-qualifiers' a wrong filter (Bug#25042).
* test/lisp/ibuffer-tests.el (ibuffer-test-Bug25042): Add test.
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/ibuffer-tests.el | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/test/lisp/ibuffer-tests.el b/test/lisp/ibuffer-tests.el index 9fdaaf0e097..92ed101e6bf 100644 --- a/test/lisp/ibuffer-tests.el +++ b/test/lisp/ibuffer-tests.el | |||
| @@ -126,5 +126,17 @@ | |||
| 126 | (and (buffer-live-p it) (kill-buffer it)))))) | 126 | (and (buffer-live-p it) (kill-buffer it)))))) |
| 127 | 127 | ||
| 128 | 128 | ||
| 129 | (ert-deftest ibuffer-test-Bug25042 () | ||
| 130 | "Test for http://debbugs.gnu.org/25042 ." | ||
| 131 | (ibuffer) | ||
| 132 | (let ((filters ibuffer-filtering-qualifiers)) | ||
| 133 | (unwind-protect | ||
| 134 | (progn | ||
| 135 | (ignore-errors ; Mistyped `match-string' instead of `string-match'. | ||
| 136 | (setq ibuffer-filtering-qualifiers nil) | ||
| 137 | (ibuffer-filter-by-predicate '(match-string "foo" (buffer-name)))) | ||
| 138 | (should-not ibuffer-filtering-qualifiers)) | ||
| 139 | (setq ibuffer-filtering-qualifiers filters)))) | ||
| 140 | |||
| 129 | (provide 'ibuffer-tests) | 141 | (provide 'ibuffer-tests) |
| 130 | ;; ibuffer-tests.el ends here | 142 | ;; ibuffer-tests.el ends here |