about summary refs log tree commit diff
path: root/users/wpcarro/emacs/pkgs/list/tests.el
diff options
context:
space:
mode:
Diffstat (limited to 'users/wpcarro/emacs/pkgs/list/tests.el')
-rw-r--r--users/wpcarro/emacs/pkgs/list/tests.el36
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")))))