diff options
| -rw-r--r-- | tests/run.scm | 7 |
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") |