2014-07-10 01:19:14 +00:00
|
|
|
(defmodule unit-calrissian-identity-monad-tests
|
2014-04-25 05:27:47 +00:00
|
|
|
(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")
|
|
|
|
|
|
2014-07-10 01:19:14 +00:00
|
|
|
(test-monad 'calrissian-identity-monad)
|
2014-04-25 05:27:47 +00:00
|
|
|
|
|
|
|
|
(deftest identity
|
|
|
|
|
(is-equal 'ok
|
2014-07-10 01:19:14 +00:00
|
|
|
(return 'calrissian-identity-monad 'ok)))
|
2014-04-25 05:27:47 +00:00
|
|
|
|
|
|
|
|
(deftest fail-with-error
|
|
|
|
|
(is-throw #(error value)
|
2014-07-10 01:19:14 +00:00
|
|
|
(fail 'calrissian-identity-monad 'value)))
|
