about summary refs log tree commit diff
path: root/emacs/.emacs.d/wpc/maybe.el
diff options
context:
space:
mode:
authorWilliam Carroll <wpcarro@gmail.com>2020-09-02T13·08+0100
committerWilliam Carroll <wpcarro@gmail.com>2020-09-02T13·08+0100
commitdffb224023e3a663afc4b7461a94c0777fa8dd97 (patch)
tree2b3cc9b9bcbc4397e6979101e2a168a83a95f1cb /emacs/.emacs.d/wpc/maybe.el
parent9c71c78abcdaa4ce46aaee964494659d5283e5d6 (diff)
Remove circular Elisp dependency
maybe.el -> prelude.el -> maybe.el

I should test for circular-dependencies in CI...
Diffstat (limited to 'emacs/.emacs.d/wpc/maybe.el')
-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