aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--tests/run.scm7
1 files changed, 6 insertions, 1 deletions
diff --git a/tests/run.scm b/tests/run.scm
index 6110b98..d316f75 100644
--- a/tests/run.scm
+++ b/tests/run.scm
@@ -19,12 +19,14 @@
(assert (not (zero? y)))
(modulo (* x y) 7)))
-(import (prefix (algebraic-structures semigroup) mod7:<>))
+(import (prefix (mod7 semigroup) mod7:))
(test 5 (mod7:<> 3 4))
(test-end "semigroup")
+(test-begin "monoid")
+
(import (algebraic-structures monoid))
(module (mod7 monoid) = (algebraic-structures monoid)
@@ -105,6 +107,9 @@
(test #f (list:every (cut member 'x <>) '((a b c) (d x f))))
(test '(x f) (list:every (cut member 'x <>) '((a x c) (d x f))))
+(test 7 (list:maximum '(1 3 7 5) <))
+(test -3 (list:minimum '(4 -3 0 1 7 8) <))
+
(test-end "foldable")
(test-begin "monoid.fold")