From 0a3b8b61b01143d2e443e952e2341fdf3b4dddde Mon Sep 17 00:00:00 2001 From: Daanturo Date: Fri, 25 Jun 2021 10:03:52 +0700 Subject: [PATCH] Define tests for state filtering --- test/evil-collection-test.el | 33 +++++++++++++++++++++++++++++++++ 1 file changed, 33 insertions(+) diff --git a/test/evil-collection-test.el b/test/evil-collection-test.el index 3c17b8a..a88fce4 100644 --- a/test/evil-collection-test.el +++ b/test/evil-collection-test.el @@ -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