aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--test/lisp/ibuffer-tests.el30
1 files changed, 15 insertions, 15 deletions
diff --git a/test/lisp/ibuffer-tests.el b/test/lisp/ibuffer-tests.el
index b9f7fe7cde8..56b0d36afdc 100644
--- a/test/lisp/ibuffer-tests.el
+++ b/test/lisp/ibuffer-tests.el
@@ -32,7 +32,7 @@
32(declare-function ibuffer-format-qualifier "ibuf-ext" (qualifier)) 32(declare-function ibuffer-format-qualifier "ibuf-ext" (qualifier))
33(declare-function ibuffer-unary-operand "ibuf-ext" (filter)) 33(declare-function ibuffer-unary-operand "ibuf-ext" (filter))
34 34
35(ert-deftest ibuffer-autoload () 35(ert-deftest ibuffer-0autoload () ; sort first
36 "Tests to see whether ibuffer has been autoloaded" 36 "Tests to see whether ibuffer has been autoloaded"
37 (skip-unless (not (featurep 'ibuf-ext))) 37 (skip-unless (not (featurep 'ibuf-ext)))
38 (should 38 (should
@@ -76,7 +76,7 @@
76 76
77(ert-deftest ibuffer-save-filters () 77(ert-deftest ibuffer-save-filters ()
78 "Tests that `ibuffer-save-filters' saves in the proper format." 78 "Tests that `ibuffer-save-filters' saves in the proper format."
79 (skip-unless (featurep 'ibuf-ext)) 79 (require 'ibuf-ext)
80 (let ((ibuffer-save-with-custom nil) 80 (let ((ibuffer-save-with-custom nil)
81 (ibuffer-saved-filters nil) 81 (ibuffer-saved-filters nil)
82 (test1 '((mode . org-mode) 82 (test1 '((mode . org-mode)
@@ -220,7 +220,7 @@
220 ;; Tests 220 ;; Tests
221 (ert-deftest ibuffer-filter-inclusion-1 () 221 (ert-deftest ibuffer-filter-inclusion-1 ()
222 "Tests inclusion using basic filter combinators with a single buffer." 222 "Tests inclusion using basic filter combinators with a single buffer."
223 (skip-unless (featurep 'ibuf-ext)) 223 (require 'ibuf-ext)
224 (unwind-protect 224 (unwind-protect
225 (let ((buf 225 (let ((buf
226 (funcall create-file-buffer "ibuf-test-1" :size 100 226 (funcall create-file-buffer "ibuf-test-1" :size 100
@@ -263,7 +263,7 @@
263 263
264 (ert-deftest ibuffer-filter-inclusion-2 () 264 (ert-deftest ibuffer-filter-inclusion-2 ()
265 "Tests inclusion of basic filters in combination on a single buffer." 265 "Tests inclusion of basic filters in combination on a single buffer."
266 (skip-unless (featurep 'ibuf-ext)) 266 (require 'ibuf-ext)
267 (unwind-protect 267 (unwind-protect
268 (let ((buf 268 (let ((buf
269 (funcall create-file-buffer "ibuf-test-2" :size 200 269 (funcall create-file-buffer "ibuf-test-2" :size 200
@@ -298,7 +298,7 @@
298 298
299 (ert-deftest ibuffer-filter-inclusion-3 () 299 (ert-deftest ibuffer-filter-inclusion-3 ()
300 "Tests inclusion with filename filters on specified buffers." 300 "Tests inclusion with filename filters on specified buffers."
301 (skip-unless (featurep 'ibuf-ext)) 301 (require 'ibuf-ext)
302 (unwind-protect 302 (unwind-protect
303 (let* ((bufA 303 (let* ((bufA
304 (funcall create-file-buffer "ibuf-test-3.a" :size 50 304 (funcall create-file-buffer "ibuf-test-3.a" :size 50
@@ -332,7 +332,7 @@
332 332
333 (ert-deftest ibuffer-filter-inclusion-4 () 333 (ert-deftest ibuffer-filter-inclusion-4 ()
334 "Tests inclusion with various filters on a single buffer." 334 "Tests inclusion with various filters on a single buffer."
335 (skip-unless (featurep 'ibuf-ext)) 335 (require 'ibuf-ext)
336 (unwind-protect 336 (unwind-protect
337 (let ((buf 337 (let ((buf
338 (funcall create-file-buffer "ibuf-test-4" 338 (funcall create-file-buffer "ibuf-test-4"
@@ -366,7 +366,7 @@
366 366
367 (ert-deftest ibuffer-filter-inclusion-5 () 367 (ert-deftest ibuffer-filter-inclusion-5 ()
368 "Tests inclusion with various filters on a single buffer." 368 "Tests inclusion with various filters on a single buffer."
369 (skip-unless (featurep 'ibuf-ext)) 369 (require 'ibuf-ext)
370 (unwind-protect 370 (unwind-protect
371 (let ((buf 371 (let ((buf
372 (funcall create-non-file-buffer "ibuf-test-5.el" 372 (funcall create-non-file-buffer "ibuf-test-5.el"
@@ -392,7 +392,7 @@
392 392
393 (ert-deftest ibuffer-filter-inclusion-6 () 393 (ert-deftest ibuffer-filter-inclusion-6 ()
394 "Tests inclusion using saved filters and DeMorgan's laws." 394 "Tests inclusion using saved filters and DeMorgan's laws."
395 (skip-unless (featurep 'ibuf-ext)) 395 (require 'ibuf-ext)
396 (unwind-protect 396 (unwind-protect
397 (let ((buf 397 (let ((buf
398 (funcall create-non-file-buffer "*ibuf-test-6*" :size 65 398 (funcall create-non-file-buffer "*ibuf-test-6*" :size 65
@@ -425,7 +425,7 @@
425 425
426 (ert-deftest ibuffer-filter-inclusion-7 () 426 (ert-deftest ibuffer-filter-inclusion-7 ()
427 "Tests inclusion with various filters on a single buffer." 427 "Tests inclusion with various filters on a single buffer."
428 (skip-unless (featurep 'ibuf-ext)) 428 (require 'ibuf-ext)
429 (unwind-protect 429 (unwind-protect
430 (let ((buf 430 (let ((buf
431 (funcall create-non-file-buffer "ibuf-test-7" 431 (funcall create-non-file-buffer "ibuf-test-7"
@@ -446,7 +446,7 @@
446 446
447 (ert-deftest ibuffer-filter-inclusion-8 () 447 (ert-deftest ibuffer-filter-inclusion-8 ()
448 "Tests inclusion with various filters." 448 "Tests inclusion with various filters."
449 (skip-unless (featurep 'ibuf-ext)) 449 (require 'ibuf-ext)
450 (unwind-protect 450 (unwind-protect
451 (let ((bufA 451 (let ((bufA
452 (funcall create-non-file-buffer "ibuf-test-8a" 452 (funcall create-non-file-buffer "ibuf-test-8a"
@@ -534,7 +534,7 @@
534 ;; Tests 534 ;; Tests
535 (ert-deftest ibuffer-decompose-filter () 535 (ert-deftest ibuffer-decompose-filter ()
536 "Tests `ibuffer-decompose-filter' for and, or, not, and saved." 536 "Tests `ibuffer-decompose-filter' for and, or, not, and saved."
537 (skip-unless (featurep 'ibuf-ext)) 537 (require 'ibuf-ext)
538 (unwind-protect 538 (unwind-protect
539 (let ((ibuf (funcall get-test-ibuffer))) 539 (let ((ibuf (funcall get-test-ibuffer)))
540 (with-current-buffer ibuf 540 (with-current-buffer ibuf
@@ -583,7 +583,7 @@
583 583
584 (ert-deftest ibuffer-and-filter () 584 (ert-deftest ibuffer-and-filter ()
585 "Tests `ibuffer-and-filter' in an Ibuffer buffer." 585 "Tests `ibuffer-and-filter' in an Ibuffer buffer."
586 (skip-unless (featurep 'ibuf-ext)) 586 (require 'ibuf-ext)
587 (unwind-protect 587 (unwind-protect
588 (let ((ibuf (funcall get-test-ibuffer))) 588 (let ((ibuf (funcall get-test-ibuffer)))
589 (with-current-buffer ibuf 589 (with-current-buffer ibuf
@@ -660,7 +660,7 @@
660 660
661 (ert-deftest ibuffer-or-filter () 661 (ert-deftest ibuffer-or-filter ()
662 "Tests `ibuffer-or-filter' in an Ibuffer buffer." 662 "Tests `ibuffer-or-filter' in an Ibuffer buffer."
663 (skip-unless (featurep 'ibuf-ext)) 663 (require 'ibuf-ext)
664 (unwind-protect 664 (unwind-protect
665 (let ((ibuf (funcall get-test-ibuffer))) 665 (let ((ibuf (funcall get-test-ibuffer)))
666 (with-current-buffer ibuf 666 (with-current-buffer ibuf
@@ -737,7 +737,7 @@
737 737
738(ert-deftest ibuffer-format-qualifier () 738(ert-deftest ibuffer-format-qualifier ()
739 "Tests string recommendation of filter from `ibuffer-format-qualifier'." 739 "Tests string recommendation of filter from `ibuffer-format-qualifier'."
740 (skip-unless (featurep 'ibuf-ext)) 740 (require 'ibuf-ext)
741 (let ((test1 '(mode . org-mode)) 741 (let ((test1 '(mode . org-mode))
742 (test2 '(size-lt . 100)) 742 (test2 '(size-lt . 100))
743 (test3 '(derived-mode . prog-mode)) 743 (test3 '(derived-mode . prog-mode))
@@ -802,7 +802,7 @@
802 802
803(ert-deftest ibuffer-unary-operand () 803(ert-deftest ibuffer-unary-operand ()
804 "Tests `ibuffer-unary-operand': (not cell) or (not . cell) -> cell." 804 "Tests `ibuffer-unary-operand': (not cell) or (not . cell) -> cell."
805 (skip-unless (featurep 'ibuf-ext)) 805 (require 'ibuf-ext)
806 (should (equal (ibuffer-unary-operand '(not . (mode "foo"))) 806 (should (equal (ibuffer-unary-operand '(not . (mode "foo")))
807 '(mode "foo"))) 807 '(mode "foo")))
808 (should (equal (ibuffer-unary-operand '(not (mode "foo"))) 808 (should (equal (ibuffer-unary-operand '(not (mode "foo")))