230c4bbb3e
(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
28 lines
777 B
EmacsLisp
28 lines
777 B
EmacsLisp
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; 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)))
|