From 193a1917dd374f7fc47a3b35e30e6a827c0b171a Mon Sep 17 00:00:00 2001 From: Masaya Tojo Date: Sun, 16 Jun 2024 15:36:33 +0900 Subject: Add string implementations --- tests/run.scm | 14 ++++++++++++++ 1 file changed, 14 insertions(+) (limited to 'tests') diff --git a/tests/run.scm b/tests/run.scm index adf0fc6..e9b7db2 100644 --- a/tests/run.scm +++ b/tests/run.scm @@ -41,6 +41,13 @@ (test-end "number.sum") +(test-begin "string") + +(import (prefix (algebraic-structures string semigroup) string:)) +(test "abc" (string:<> "ab" "c")) + +(test-end "string") + (test-begin "list") (import (prefix (algebraic-structures list semigroup) list:)) @@ -98,6 +105,13 @@ (test-end "number.sum") +(test-begin "string") + +(import (prefix (algebraic-structures string monoid) string:)) +(test "" (begin string:unit)) + +(test-end "string") + (test-begin "list") (import (prefix (algebraic-structures list monoid) list:)) -- cgit v1.2.3