about summary refs log tree commit diff
path: root/users/wpcarro/emacs/pkgs
diff options
context:
space:
mode:
authorWilliam Carroll <wpcarro@gmail.com>2022-08-05T20·33-0700
committerclbot <clbot@tvl.fyi>2022-08-05T20·37+0000
commitcc802eb44ba831cb6e0330196c7f59aaa3e49c94 (patch)
tree59e6d677bfafde013f281ac904cfa7c1c258fe33 /users/wpcarro/emacs/pkgs
parent8670746109c9ee2fecb91581cd74d6c913770ae8 (diff)
fix(wpcarro/emacs): Remove lingering dash.el dep r/4387
CI couldn't catch this because the dependency is discovered at runtime, and
there were no tests consuming `list-concat`. Added the tests and removed the
usage of `-concat`.

Change-Id: I5bcce9aa8170001a9d35c104da09374ab30ffbc5
Reviewed-on: https://cl.tvl.fyi/c/depot/+/6043
Reviewed-by: wpcarro <wpcarro@gmail.com>
Autosubmit: wpcarro <wpcarro@gmail.com>
Tested-by: BuildkiteCI
Diffstat (limited to 'users/wpcarro/emacs/pkgs')
-rw-r--r--users/wpcarro/emacs/pkgs/list/list.el2
-rw-r--r--users/wpcarro/emacs/pkgs/list/tests.el4
2 files changed, 5 insertions, 1 deletions
diff --git a/users/wpcarro/emacs/pkgs/list/list.el b/users/wpcarro/emacs/pkgs/list/list.el
index 3196d85856c1..6747257d98d8 100644
--- a/users/wpcarro/emacs/pkgs/list/list.el
+++ b/users/wpcarro/emacs/pkgs/list/list.el
@@ -44,7 +44,7 @@
 
 (defun list-concat (&rest lists)
   "Joins `LISTS' into on list."
-  (apply #'-concat lists))
+  (apply #'append lists))
 
 (defun list-duplicate (n x)
   "Duplicates the given element, X, N times in a list."
diff --git a/users/wpcarro/emacs/pkgs/list/tests.el b/users/wpcarro/emacs/pkgs/list/tests.el
index 4ee03c6b9792..4b4579688331 100644
--- a/users/wpcarro/emacs/pkgs/list/tests.el
+++ b/users/wpcarro/emacs/pkgs/list/tests.el
@@ -97,6 +97,10 @@
   (should (equal '(a b c) (list-delete 'b '(a b b c))))
   (should (equal '() (list-delete 'b '()))))
 
+(ert-deftest list-concat ()
+  (should (equal '(1 2 3 4 5) (list-concat '(1) '(2 3) '(4 5))))
+  (should (equal '(1 2 3) (list-concat '() '(1 2 3)))))
+
 ;; TODO(wpcarro): Supoprt this.
 ;; (ert-deftest list-zip ()
 ;;   (should (equal '((1 3 5) (2 4 6)) (list-zip '(1 2) '(3 4) '(5 6))))