about summary refs log tree commit diff
diff options
context:
space:
mode:
-rw-r--r--emacs/.emacs.d/wpc/maybe.el27
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