refactor(wpcarro/emacs): Remove list.el's dep on dash.el 🎉
Still pruning the dependency tree. Thank you, seq.el, from DWIMing. Change-Id: I797f08abe44853b9d297a99d5ba9e9bde3dcfeec Reviewed-on: https://cl.tvl.fyi/c/depot/+/6040 Reviewed-by: wpcarro <wpcarro@gmail.com> Autosubmit: wpcarro <wpcarro@gmail.com> Tested-by: BuildkiteCI
This commit is contained in:
parent
42e7254ad0
commit
b880fc4a14
3 changed files with 64 additions and 46 deletions
|
|
@ -52,3 +52,16 @@
|
|||
(list-chunk 3 '(1 2 3 4 5 6))))
|
||||
(should (equal '((1 2) (3 4) (5 6))
|
||||
(list-chunk 2 '(1 2 3 4 5 6)))))
|
||||
|
||||
(ert-deftest list-find ()
|
||||
(should (equal 2 (list-find (lambda (x) (= 2 x)) '(1 2 3 4)))))
|
||||
|
||||
(ert-deftest list-all? ()
|
||||
(should (equal t (list-all? (lambda (x) (= 2 x)) nil)))
|
||||
(should (null (list-all? (lambda (x) (= 2 x)) '(1 2 3))))
|
||||
(should (equal t (list-all? (lambda (x) (= 2 x)) '(2 2 2 2)))))
|
||||
|
||||
(ert-deftest list-any? ()
|
||||
(should (null (list-any? (lambda (x) (= 2 x)) nil)))
|
||||
(should (equal t (list-any? (lambda (x) (= 2 x)) '(1 2 3))))
|
||||
(should (null (list-any? (lambda (x) (= 4 x)) '(1 2 3)))))
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue