2 ;; (install-elisp "http://www.emacswiki.org/cgi-bin/wiki/download/el-expectations.el")
3 ;; (install-elisp "http://www.emacswiki.org/cgi-bin/wiki/download/el-mock.el")
5 (when (fboundp 'expectations
)
7 (desc "candidates-file plug-in")
8 (expect '(anything-p-candidats-file-init)
10 (car (anything-compile-sources
12 (candidates-file .
"test.txt")))
13 '(anything-compile-source--candidates-file)))))
14 (expect '(anything-p-candidats-file-init
17 (car (anything-compile-sources
19 (candidates-file .
"test.txt")
20 (init .
(lambda () 1))))
21 '(anything-compile-source--candidates-file)))))
22 (expect '(anything-p-candidats-file-init
25 (car (anything-compile-sources
27 (candidates-file .
"test.txt")
28 (init (lambda () 1))))
29 '(anything-compile-source--candidates-file)))))
31 ;; (desc "anything-c-source-buffers")
32 ;; (expect '(("Buffers" ("foo" "curbuf")))
33 ;; (stub buffer-list => '("curbuf" " hidden" "foo" "*anything*"))
34 ;; (let ((anything-c-boring-buffer-regexp
39 ;; " *Echo Area" " *Minibuf"))))
40 ;; (flet ((buffer-name (&optional x) x))
41 ;; (anything-test-candidates 'anything-c-source-buffers))))
42 (desc "anything-c-stringify")
44 (anything-c-stringify "str1"))
46 (anything-c-stringify 'str2
))
47 (desc "anything-c-symbolify")
49 (anything-c-symbolify "sym1"))
51 (anything-c-symbolify 'sym2
))
52 (desc "plug-in:default-action")
53 (expect '(((action ("default" . default
) ("original" . original
))
54 (default-action .
("default" . default
))
55 (action ("original" . original
))))
56 (anything-compile-sources
57 '(((default-action .
("default" . default
))
58 (action ("original" . original
))))
59 '(anything-compile-source--default-action)))
60 (expect '(((action ("a1" . a1
) ("a2" . a2
))
61 (default-action .
("a1" . a1
))
62 (action ("a1" . a1
) ("a2" . a2
))))
63 (anything-compile-sources
64 '(((default-action .
("a1" . a1
))
65 (action ("a1" . a1
) ("a2" . a2
))))
66 '(anything-compile-source--default-action)))
67 (expect '(((action ("a2" . a2
) ("a1" . a1
))
68 (default-action .
("a2" . a2
))
69 (action ("a1" . a1
) ("a2" . a2
))))
70 (anything-compile-sources
71 '(((default-action .
("a2" . a2
))
72 (action ("a1" . a1
) ("a2" . a2
))))
73 '(anything-compile-source--default-action)))
74 (desc "anything-c-adaptive-store-selection")
76 ;; (expect '(("test adaptative" ("a" ("a" . 1))))
77 ;; (let ((anything-c-adaptive-history nil))
79 ;; :sources '(((name . "test adaptative")
80 ;; (candidates . (list "a" "b" "c" "d"))
81 ;; (action . identity)
82 ;; (filtered-candidate-transformer anything-c-adaptive-sort)))
84 ;; :execute-action-at-once-if-one t)
85 ;; (anything-c-adaptive-store-selection))
86 ;; anything-c-adaptive-history))
87 (desc "anything-ff-human-size")
89 (anything-ff-human-size 7141892608.0))
91 (anything-ff-human-size 1221554))
93 (anything-ff-human-size 395897))
95 (anything-ff-human-size 456))
96 (desc "anything-additional-type-attributes")
97 (expect '((foo (action (a))))
98 (let (anything-additional-type-attributes)
99 (anything-c-arrange-type-attribute 'foo
'((action (a))))
100 anything-additional-type-attributes
))
101 (expect '((foo (action (a))))
102 (let (anything-additional-type-attributes)
103 (anything-c-arrange-type-attribute 'foo
'((action (a))))
104 (anything-c-arrange-type-attribute 'foo
'((action (a))))
105 anything-additional-type-attributes
))
106 (expect '((foo (action (b))))
107 (let (anything-additional-type-attributes)
108 (anything-c-arrange-type-attribute 'foo
'((action (a))))
109 (anything-c-arrange-type-attribute 'foo
'((action (b))))
110 anything-additional-type-attributes
))