calrissian/test/unit/unit-state-transformer-tests.lfe

40 lines
1.1 KiB
Text
Raw Normal View History

2014-05-12 04:12:26 +00:00
(defmodule unit-state-transformer-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")
(deftestskip foo
(is 'false))
(deftest eval
(is-equal 5
(let* ((m (: state-transformer new 'identity-monad))
(mval (call m 'return 5)))
(call m 'eval mval 'undefined))))
(deftest exec-unchanged
(is-equal 'foo
(let* ((m (: state-transformer new 'identity-monad))
(mval (call m 'return 5)))
(call m 'exec mval 'foo))))
(deftest exec-double
(is-equal 10
(let ((m (: state-transformer new 'identity-monad)))
(call m 'exec
(do-m m
(call m 'modify (lambda (x) (* x 2))))
5))))
(deftest exec-fail
(is-throw #(error value)
(let ((m (: state-transformer new 'identity-monad)))
(call m 'exec
(call m 'fail 'value)
'undefined))))