diff options
Diffstat (limited to 'tests/monads.scm')
| -rw-r--r-- | tests/monads.scm | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/tests/monads.scm b/tests/monads.scm index 7fc2aa90c1..d3f78e1568 100644 --- a/tests/monads.scm +++ b/tests/monads.scm @@ -163,6 +163,18 @@ %monads %monad-run)) +(test-assert "anym" + (every (lambda (monad run) + (eq? (run (with-monad monad + (let ((lst (list (return 1) (return 2) (return 3)))) + (anym monad + (lambda (x) + (and (odd? x) 'odd!)) + lst)))) + 'odd!)) + %monads + %monad-run)) + (test-end "monads") |