emacs
/
evil-collection
mirror of https://github.com/jojojames/evil-collection.git
1
0
Fork 0
Code Issues Releases Wiki Activity

Define tests for state filtering

This commit is contained in:
Daanturo 2021-06-25 10:03:52 +07:00 committed by Youmu
parent 4a9cb927ce
commit 0a3b8b61b0
1 changed files with 33 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
test/evil-collection-test.el
View File

@ -5,4 +5,37 @@
"Zero check blank test."
(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