monads: Fix 'anym'.

* guix/monads.scm (anym): Fix successful case. * tests/monads.scm ("anym"): New test.
2026-04-06 21:20:33 +02:00 · 2013-12-09 21:10:28 +01:00
parent f7faff88b7
commit 593c3fe600
2 changed files with 16 additions and 3 deletions
--- 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")