feat(wpcarro/emacs): Package maybe.el
(Temporarily) remove dependency on list.el in favor of dash, which I'm not thrilled about. Change-Id: Ic4348ee72582dee63ba07a183f3bda65baa7e2d6 Reviewed-on: https://cl.tvl.fyi/c/depot/+/5999 Reviewed-by: wpcarro <wpcarro@gmail.com> Autosubmit: wpcarro <wpcarro@gmail.com> Tested-by: BuildkiteCI
This commit is contained in:
parent
4a4f8f9358
commit
230c4bbb3e
6 changed files with 59 additions and 25 deletions
28
users/wpcarro/emacs/pkgs/maybe/tests.el
Normal file
28
users/wpcarro/emacs/pkgs/maybe/tests.el
Normal file
|
|
@ -0,0 +1,28 @@
|
|||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;; Dependencies
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
(require 'maybe)
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;; Tests
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
(ert-deftest maybe-nil? ()
|
||||
(and
|
||||
(maybe-nil? nil)
|
||||
(not (maybe-nil? t))))
|
||||
|
||||
(ert-deftest maybe-some? ()
|
||||
(and
|
||||
(maybe-some? '(1 2 3))
|
||||
(not (maybe-some? nil))))
|
||||
|
||||
(ert-deftest maybe-default ()
|
||||
(and
|
||||
(string= "some" (maybe-default "some" nil))
|
||||
(= 10 (maybe-default 1 10))))
|
||||
|
||||
(ert-deftest maybe-map ()
|
||||
(eq nil (maybe-map (lambda (x) (* x 2)) nil))
|
||||
(= 4 (maybe-map (lambda (x) (* x 2)) 2)))
|
||||
Loading…
Add table
Add a link
Reference in a new issue