1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
(require 'suggest)
(ert-deftest suggest--safe ()
(should (not (suggest--safe 'upcase '(-1))))
(should (suggest--safe 'upcase '(1)))
(should (not (suggest--safe 'read '(nil))))
(should (suggest--safe 'read '(1 1)))
(should (not (suggest--safe '-interleave '())))
(should (not (suggest--safe '-zip '())))
(should (suggest--safe '-interleave '(1 1))))
(ert-deftest suggest--unread ()
(should (equal (suggest--unread 'foo) "'foo"))
(should (equal (suggest--unread nil) "nil"))
(should (equal (suggest--unread '(1 2)) "'(1 2)"))
(should (equal (suggest--unread :foo) ":foo"))
(should (equal (suggest--unread 42) "42"))
(should (equal (suggest--unread "foo") "\"foo\""))
(should (equal (suggest--unread '1+) "#'1+")))
|
