From 230c4bbb3e9f44875d6593a7c6cb0ca33bb63805 Mon Sep 17 00:00:00 2001 From: William Carroll Date: Fri, 29 Jul 2022 11:15:17 -0700 Subject: 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 Autosubmit: wpcarro Tested-by: BuildkiteCI --- users/wpcarro/emacs/pkgs/maybe/tests.el | 28 ++++++++++++++++++++++++++++ 1 file changed, 28 insertions(+) create mode 100644 users/wpcarro/emacs/pkgs/maybe/tests.el (limited to 'users/wpcarro/emacs/pkgs/maybe/tests.el') diff --git a/users/wpcarro/emacs/pkgs/maybe/tests.el b/users/wpcarro/emacs/pkgs/maybe/tests.el new file mode 100644 index 000000000000..775bb6b7ac80 --- /dev/null +++ b/users/wpcarro/emacs/pkgs/maybe/tests.el @@ -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))) -- cgit 1.4.1