mirror of
https://github.com/correl/calrissian.git
synced 2024-11-27 11:09:58 +00:00
32 lines
1,009 B
Text
32 lines
1,009 B
Text
(defmodule unit-calrissian-maybe-monad-tests
|
|
(export all)
|
|
(import
|
|
(from lfeunit-util
|
|
(check-failed-assert 2)
|
|
(check-wrong-assert-exception 2))))
|
|
|
|
(include-lib "deps/lfeunit/include/lfeunit-macros.lfe")
|
|
(include-lib "include/monads.lfe")
|
|
(include-lib "include/monad-tests.lfe")
|
|
|
|
(test-monad (monad 'maybe))
|
|
|
|
(deftest nothing-short-circuits-value
|
|
(is-equal 'nothing
|
|
(>>= (monad 'maybe) 'nothing
|
|
(lambda (x) (+ 5 x)))))
|
|
|
|
(deftest nothing-short-circuits-error
|
|
(is-equal 'nothing
|
|
(>>= (monad 'maybe) 'nothing
|
|
(lambda (_) (error 'bad-func)))))
|
|
|
|
(deftest fold-increment-value
|
|
(is-equal #(just 3)
|
|
(let ((minc (lambda (x) (return (monad 'maybe) (+ 1 x))))
|
|
(bind (lambda (f m) (>>= (monad 'maybe) m f))))
|
|
(lists:foldr bind
|
|
#(just 0)
|
|
(list minc
|
|
minc
|
|
minc)))))
|