Fix tests

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")