diff options
| -rw-r--r-- | users/wpcarro/emacs/pkgs/maybe/tests.el | 19 |
1 files changed, 8 insertions, 11 deletions
diff --git a/users/wpcarro/emacs/pkgs/maybe/tests.el b/users/wpcarro/emacs/pkgs/maybe/tests.el index 775bb6b7ac..c0463cc65a 100644 --- a/users/wpcarro/emacs/pkgs/maybe/tests.el +++ b/users/wpcarro/emacs/pkgs/maybe/tests.el @@ -9,20 +9,17 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (ert-deftest maybe-nil? () - (and - (maybe-nil? nil) - (not (maybe-nil? t)))) + (should (maybe-nil? nil)) + (should (not (maybe-nil? t)))) (ert-deftest maybe-some? () - (and - (maybe-some? '(1 2 3)) - (not (maybe-some? nil)))) + (should (maybe-some? '(1 2 3))) + (should (not (maybe-some? nil)))) (ert-deftest maybe-default () - (and - (string= "some" (maybe-default "some" nil)) - (= 10 (maybe-default 1 10)))) + (should (string= "some" (maybe-default "some" nil))) + (should (= 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))) + (should (eq nil (maybe-map (lambda (x) (* x 2)) nil))) + (should (= 4 (maybe-map (lambda (x) (* x 2)) 2)))) |