about summary refs log tree commit diff
path: root/users/wpcarro/emacs/pkgs/list/tests.el
diff options
context:
space:
mode:
authorWilliam Carroll <wpcarro@gmail.com>2022-08-01T20·43-0700
committerclbot <clbot@tvl.fyi>2022-08-02T20·29+0000
commit5417b512e77a7434f7b1fc9d55035921725a8df1 (patch)
tree81b28a81def8eba77449717287c7026c4c952cdb /users/wpcarro/emacs/pkgs/list/tests.el
parent852cc4a9c8dac3d2a6afd139fee69a81f838db41 (diff)
feat(wpcarro/emacs): Support list-chunk function r/4365
Would be nice to remove the top-level `if` statement, but I can't be bothered to
debug the first unit test without that workaround.

Change-Id: I4ba576bda915eeb11f9fbfeb5d95d8e5668fd0bd
Reviewed-on: https://cl.tvl.fyi/c/depot/+/6022
Reviewed-by: wpcarro <wpcarro@gmail.com>
Autosubmit: wpcarro <wpcarro@gmail.com>
Tested-by: BuildkiteCI
Diffstat (limited to 'users/wpcarro/emacs/pkgs/list/tests.el')
-rw-r--r--users/wpcarro/emacs/pkgs/list/tests.el10
1 files changed, 10 insertions, 0 deletions
diff --git a/users/wpcarro/emacs/pkgs/list/tests.el b/users/wpcarro/emacs/pkgs/list/tests.el
index abba6b59d62f..a6096a1d6e92 100644
--- a/users/wpcarro/emacs/pkgs/list/tests.el
+++ b/users/wpcarro/emacs/pkgs/list/tests.el
@@ -42,3 +42,13 @@
 (ert-deftest list-join ()
   (should (equal "foo-bar-baz"
                  (list-join "-" '("foo" "bar" "baz")))))
+
+(ert-deftest list-chunk ()
+  (should (equal '((1 2 3 4 5 6))
+                 (list-chunk 7 '(1 2 3 4 5 6))))
+  (should (equal '((1) (2) (3) (4) (5) (6))
+                 (list-chunk 1 '(1 2 3 4 5 6))))
+  (should (equal '((1 2 3) (4 5 6))
+                 (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)))))