From a7f95e5555880f3d6d3b0fe0308f94c82b83b767 Mon Sep 17 00:00:00 2001 From: Masaya Tojo Date: Fri, 14 Jun 2024 13:42:59 +0900 Subject: Fix tests --- tests/run.scm | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'tests') 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") -- cgit v1.2.3