[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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master d8a1a56: * test/lisp/ibuffer-tests.el (ibuffer-test-Bug25000): Add test for Bug25000.,
Tino Calancha <=