maurice/snix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

feat(wpcarro/emacs): Add fns to list.el

Browse source 
new functions:
- duplicate
- last
- delete
- wrap

also:
- drop support for `list-head` (in favor of `list-first`)
- add optional arg to first

Change-Id: If3c48d4749a3bc5a853995996fa02a65a4076a10
Reviewed-on: https://cl.tvl.fyi/c/depot/+/6041
Reviewed-by: wpcarro <wpcarro@gmail.com>
Autosubmit: wpcarro <wpcarro@gmail.com>
Tested-by: BuildkiteCI
This commit is contained in:
William Carroll 2022-08-05 12:34:15 -07:00 • committed by clbot
parent b880fc4a14
commit e5503751c4
4 changed files with 70 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

36
users/wpcarro/emacs/pkgs/list/tests.el
View file

@ -65,3 +65,39 @@
(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)))))
(ert-deftest list-duplicate ()
(should (equal '() (list-duplicate 0 "hello")))
(should (equal '("hi") (list-duplicate 1 "hi")))
(should (equal '("bye" "bye") (list-duplicate 2 "bye")))
(should (equal '((1 2) (1 2) (1 2)) (list-duplicate 3 '(1 2)))))
(ert-deftest list-first ()
(should (null (list-first '())))
(should (equal 1 (list-first '() 1)))
(should (equal 1 (list-first '(1))))
(should (equal 1 (list-first '(1) 2)))
(should (equal 1 (list-first '(1 2 3)))))
(ert-deftest list-last ()
(should (null (list-last '())))
(should (equal 1 (list-last '() 1)))
(should (equal 1 (list-last '(1))))
(should (equal 1 (list-last '(1) 2)))
(should (equal 3 (list-last '(1 2 3)))))
(ert-deftest list-wrap ()
(should (equal '("hello") (list-wrap "hello")))
(should (equal '(1 2 3) (list-wrap '(1 2 3))))
(should (equal '() (list-wrap nil))))
(ert-deftest list-delete ()
(should (equal '(b c) (list-delete 'a '(a b c))))
(should (equal '(a b c) (list-delete 'd '(a b c))))
(should (equal '(a b c) (list-delete 'b '(a b b c))))
(should (equal '() (list-delete 'b '()))))
;; TODO(wpcarro): Supoprt this.
;; (ert-deftest list-zip ()
;; (should (equal '((1 3 5) (2 4 6)) (list-zip '(1 2) '(3 4) '(5 6))))
;; (should (equal '((1 3 5)) (list-zip '(1 2) '(3) '(5 6)))))