diff options
| -rw-r--r-- | emacs/.emacs.d/wpc/maybe.el | 27 |
1 files changed, 0 insertions, 27 deletions
diff --git a/emacs/.emacs.d/wpc/maybe.el b/emacs/.emacs.d/wpc/maybe.el index dfb9a69e6bc8..270ee909a8e8 100644 --- a/emacs/.emacs.d/wpc/maybe.el +++ b/emacs/.emacs.d/wpc/maybe.el @@ -36,7 +36,6 @@ ;; Dependencies ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -(require 'prelude) (require 'list) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; @@ -76,31 +75,5 @@ (funcall f x) x)) -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; Tests -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; - -(when maybe--run-tests? - ;; nil? - (prelude-assert (maybe-nil? nil)) - (prelude-refute (maybe-nil? t)) - ;; some? - (prelude-assert (maybe-some? 10)) - (prelude-refute (maybe-some? nil)) - ;; nils? - (prelude-assert (maybe-nils? nil nil nil nil)) - (prelude-refute (maybe-nils? nil t nil t)) - ;; somes? - (prelude-assert (maybe-somes? t 10 '(1 2 3) "some")) - (prelude-refute (maybe-somes? t nil '(1 2 3) "some")) - ;; default - (prelude-assert - (and (= 0 (maybe-default 5 0)) - (= 5 (maybe-default 5 nil)))) - ;; map - (prelude-assert - (and (= 2 (maybe-map #'1+ 1)) - (eq nil (maybe-map #'1+ nil))))) - (provide 'maybe) ;;; maybe.el ends here |