diff options
| author | Glenn Morris | 2017-07-21 13:49:37 -0400 |
|---|---|---|
| committer | Glenn Morris | 2017-07-21 13:50:01 -0400 |
| commit | 237e238cfce65ebbd1fbac2e05b9ce8ecf9ab2c1 (patch) | |
| tree | 79c39774d63a677857b2fd6fb73343992fd5a85a | |
| parent | 16001d1a97311f8404325f7b3b3c101caffb1f8a (diff) | |
| download | emacs-237e238cfce65ebbd1fbac2e05b9ce8ecf9ab2c1.tar.gz emacs-237e238cfce65ebbd1fbac2e05b9ce8ecf9ab2c1.zip | |
Stop skipping many ibuffer tests by default
* test/lisp/ibuffer-tests.el (ibuffer-0autoload):
Rename so it sorts first.
(ibuffer-save-filters, ibuffer-filter-inclusion-1)
(ibuffer-filter-inclusion-2, ibuffer-filter-inclusion-3)
(ibuffer-filter-inclusion-4, ibuffer-filter-inclusion-5)
(ibuffer-filter-inclusion-6, ibuffer-filter-inclusion-7)
(ibuffer-filter-inclusion-8, ibuffer-decompose-filter)
(ibuffer-and-filter, ibuffer-or-filter, ibuffer-format-qualifier)
(ibuffer-unary-operand): Require ibuf-ext so tests not skipped.
| -rw-r--r-- | test/lisp/ibuffer-tests.el | 30 |
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"))) |