Define tests for state filtering
This commit is contained in:
parent
4a9cb927ce
commit
0a3b8b61b0
|
@ -5,4 +5,37 @@
|
||||||
"Zero check blank test."
|
"Zero check blank test."
|
||||||
(should (equal 0 0)))
|
(should (equal 0 0)))
|
||||||
|
|
||||||
|
(ert-deftest evil-collection-filtering-states-test ()
|
||||||
|
"Test `evil-collection--filter-states'."
|
||||||
|
(let ((evil-collection-state-denylist '())
|
||||||
|
(evil-collection-state-passlist '()))
|
||||||
|
(should
|
||||||
|
(equal nil
|
||||||
|
(evil-collection--filter-states nil)))
|
||||||
|
(should
|
||||||
|
(equal '(normal)
|
||||||
|
(evil-collection--filter-states 'normal)))
|
||||||
|
(should
|
||||||
|
(equal '(normal)
|
||||||
|
(evil-collection--filter-states '(normal)))))
|
||||||
|
(let ((evil-collection-state-denylist '(insert))
|
||||||
|
(evil-collection-state-passlist '()))
|
||||||
|
(should
|
||||||
|
(equal '()
|
||||||
|
(evil-collection--filter-states 'insert)))
|
||||||
|
(should
|
||||||
|
(equal '(visual)
|
||||||
|
(evil-collection--filter-states '(visual insert)))))
|
||||||
|
(let ((evil-collection-state-denylist '(insert))
|
||||||
|
(evil-collection-state-passlist '(normal visual)))
|
||||||
|
(should
|
||||||
|
(equal '()
|
||||||
|
(evil-collection--filter-states '())))
|
||||||
|
(should
|
||||||
|
(equal '(visual)
|
||||||
|
(evil-collection--filter-states '(insert visual))))
|
||||||
|
(should
|
||||||
|
(seq-set-equal-p '(visual normal)
|
||||||
|
(evil-collection--filter-states '(motion normal visual insert))))))
|
||||||
|
|
||||||
;;; evil-collection-test.el ends here
|
;;; evil-collection-test.el ends here
|
||||||
|
|
Loading…
Reference in New Issue