diff options
Diffstat (limited to 'tests/run.scm')
| -rw-r--r-- | tests/run.scm | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/tests/run.scm b/tests/run.scm index ed2cd8f..6b6a74e 100644 --- a/tests/run.scm +++ b/tests/run.scm @@ -107,6 +107,19 @@ (test-end "monoid") +(test-begin "group") + +(import (prefix (algebraic-structures group number product) product:)) +(import (prefix (algebraic-structures group number sum) sum:)) + +(test -9 (sum:inv 9)) +(test 9 (sum:pow 3 3)) + +(test 1/9 (product:inv 9)) +(test 9 (product:pow 3 2)) + +(test-end "group") + (test-begin "functor") (test '((a) (b) (c)) (list:map list '(a b c))) |