diff options
Diffstat (limited to '')
-rw-r--r-- | users/wpcarro/emacs/pkgs/list/tests.el | 36 |
1 files changed, 24 insertions, 12 deletions
diff --git a/users/wpcarro/emacs/pkgs/list/tests.el b/users/wpcarro/emacs/pkgs/list/tests.el index 2f7090d4676c..abba6b59d62f 100644 --- a/users/wpcarro/emacs/pkgs/list/tests.el +++ b/users/wpcarro/emacs/pkgs/list/tests.el @@ -9,24 +9,36 @@ ;; Tests ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +(setq xs '(1 2 3 4 5)) + (ert-deftest list-length () - (= 0 (list-length '())) - (= 5 (list-length '(1 2 3 4 5)))) + (should (= 0 (list-length '()))) + (should (= 5 (list-length xs)))) (ert-deftest list-reduce () - (= 16 (list-reduce 1 (lambda (x acc) (+ x acc)) '(1 2 3 4 5)))) + (should (= 16 (list-reduce 1 (lambda (x acc) (+ x acc)) xs)))) (ert-deftest list-map () - (equal '(2 4 6 8 10) - (list-map (lambda (x) (* x 2)) '(1 2 3 4 5)))) + (should + (equal '(2 4 6 8 10) + (list-map (lambda (x) (* x 2)) xs)))) (ert-deftest list-xs-distinct-by? () - (list-xs-distinct-by? - (lambda (x) (plist-get x :kbd)) - '((:kbd "C-a" [:name] "foo") - - (:kbd "C-b" :name "[]foo")))) + (should + (equal t (list-xs-distinct-by? + (lambda (x) (plist-get x :kbd)) + '((:kbd "C-a" :name "foo") + (:kbd "C-b" :name "foo")))))) (ert-deftest list-dedupe-adjacent () - (equal '(1 2 3 4 3 5) - (list-dedupe-adjacent '(1 1 1 2 2 3 4 4 3 5 5)))) + (should (equal '(1 2 3 4 3 5) + (list-dedupe-adjacent '(1 1 1 2 2 3 4 4 3 5 5))))) + +(ert-deftest list-contains? () + ;; Assert returns t or nil + (should (equal t (list-contains? 1 xs))) + (should (equal nil (list-contains? 100 xs)))) + +(ert-deftest list-join () + (should (equal "foo-bar-baz" + (list-join "-" '("foo" "bar" "baz"))))) |