procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Stop skipping many ibuffer tests by default

Browse source 
* 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.
This commit is contained in:
Glenn Morris 2017-07-21 13:49:37 -04:00
parent 16001d1a97
commit 237e238cfc
1 changed files with 15 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
test/lisp/ibuffer-tests.el
View file

@ -32,7 +32,7 @@
(declare-function ibuffer-format-qualifier "ibuf-ext" (qualifier))
(declare-function ibuffer-unary-operand "ibuf-ext" (filter))
(ert-deftest ibuffer-autoload ()
(ert-deftest ibuffer-0autoload () ; sort first
"Tests to see whether ibuffer has been autoloaded"
(skip-unless (not (featurep 'ibuf-ext)))
(should
@ -76,7 +76,7 @@
(ert-deftest ibuffer-save-filters ()
"Tests that `ibuffer-save-filters' saves in the proper format."
(skip-unless (featurep 'ibuf-ext))
(require 'ibuf-ext)
(let ((ibuffer-save-with-custom nil)
(ibuffer-saved-filters nil)
(test1 '((mode . org-mode)
@ -220,7 +220,7 @@
;; Tests
(ert-deftest ibuffer-filter-inclusion-1 ()
"Tests inclusion using basic filter combinators with a single buffer."
(skip-unless (featurep 'ibuf-ext))
(require 'ibuf-ext)
(unwind-protect
(let ((buf
(funcall create-file-buffer "ibuf-test-1" :size 100
@ -263,7 +263,7 @@
(ert-deftest ibuffer-filter-inclusion-2 ()
"Tests inclusion of basic filters in combination on a single buffer."
(skip-unless (featurep 'ibuf-ext))
(require 'ibuf-ext)
(unwind-protect
(let ((buf
(funcall create-file-buffer "ibuf-test-2" :size 200
@ -298,7 +298,7 @@
(ert-deftest ibuffer-filter-inclusion-3 ()
"Tests inclusion with filename filters on specified buffers."
(skip-unless (featurep 'ibuf-ext))
(require 'ibuf-ext)
(unwind-protect
(let* ((bufA
(funcall create-file-buffer "ibuf-test-3.a" :size 50
@ -332,7 +332,7 @@
(ert-deftest ibuffer-filter-inclusion-4 ()
"Tests inclusion with various filters on a single buffer."
(skip-unless (featurep 'ibuf-ext))
(require 'ibuf-ext)
(unwind-protect
(let ((buf
(funcall create-file-buffer "ibuf-test-4"
@ -366,7 +366,7 @@
(ert-deftest ibuffer-filter-inclusion-5 ()
"Tests inclusion with various filters on a single buffer."
(skip-unless (featurep 'ibuf-ext))
(require 'ibuf-ext)
(unwind-protect
(let ((buf
(funcall create-non-file-buffer "ibuf-test-5.el"
@ -392,7 +392,7 @@
(ert-deftest ibuffer-filter-inclusion-6 ()
"Tests inclusion using saved filters and DeMorgan's laws."
(skip-unless (featurep 'ibuf-ext))
(require 'ibuf-ext)
(unwind-protect
(let ((buf
(funcall create-non-file-buffer "*ibuf-test-6*" :size 65
@ -425,7 +425,7 @@
(ert-deftest ibuffer-filter-inclusion-7 ()
"Tests inclusion with various filters on a single buffer."
(skip-unless (featurep 'ibuf-ext))
(require 'ibuf-ext)
(unwind-protect
(let ((buf
(funcall create-non-file-buffer "ibuf-test-7"
@ -446,7 +446,7 @@
(ert-deftest ibuffer-filter-inclusion-8 ()
"Tests inclusion with various filters."
(skip-unless (featurep 'ibuf-ext))
(require 'ibuf-ext)
(unwind-protect
(let ((bufA
(funcall create-non-file-buffer "ibuf-test-8a"
@ -534,7 +534,7 @@
;; Tests
(ert-deftest ibuffer-decompose-filter ()
"Tests `ibuffer-decompose-filter' for and, or, not, and saved."
(skip-unless (featurep 'ibuf-ext))
(require 'ibuf-ext)
(unwind-protect
(let ((ibuf (funcall get-test-ibuffer)))
(with-current-buffer ibuf
@ -583,7 +583,7 @@
(ert-deftest ibuffer-and-filter ()
"Tests `ibuffer-and-filter' in an Ibuffer buffer."
(skip-unless (featurep 'ibuf-ext))
(require 'ibuf-ext)
(unwind-protect
(let ((ibuf (funcall get-test-ibuffer)))
(with-current-buffer ibuf
@ -660,7 +660,7 @@
(ert-deftest ibuffer-or-filter ()
"Tests `ibuffer-or-filter' in an Ibuffer buffer."
(skip-unless (featurep 'ibuf-ext))
(require 'ibuf-ext)
(unwind-protect
(let ((ibuf (funcall get-test-ibuffer)))
(with-current-buffer ibuf
@ -737,7 +737,7 @@
(ert-deftest ibuffer-format-qualifier ()
"Tests string recommendation of filter from `ibuffer-format-qualifier'."
(skip-unless (featurep 'ibuf-ext))
(require 'ibuf-ext)
(let ((test1 '(mode . org-mode))
(test2 '(size-lt . 100))
(test3 '(derived-mode . prog-mode))
@ -802,7 +802,7 @@
(ert-deftest ibuffer-unary-operand ()
"Tests `ibuffer-unary-operand': (not cell) or (not . cell) -> cell."
(skip-unless (featurep 'ibuf-ext))
(require 'ibuf-ext)
(should (equal (ibuffer-unary-operand '(not . (mode "foo")))
'(mode "foo")))
(should (equal (ibuffer-unary-operand '(not (mode "foo")))