blob: a88fce4ab33138f3361d03b336826c3ffe16beb7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
;;; evil-collection-test.el --- Tests for evil-collection -*- lexical-binding: t -*-
(require 'evil-collection)
(ert-deftest evil-collection-zero-test ()
"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
|
