From f509c70b6064c631c0de1c26ca4272d143188383 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 18 Mar 2019 23:18:12 +0100 Subject: Rewrote writer monad. --- tests/test.scm | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) (limited to 'tests') diff --git a/tests/test.scm b/tests/test.scm index 6ce798e..562c736 100755 --- a/tests/test.scm +++ b/tests/test.scm @@ -51,3 +51,29 @@ (test-end "state-test") + +(test-begin "writer-test") + +(use-modules (monad writer)) + +(test-equal '(10 "HelloWorld") + (run-writer + (do (w "Hello") + (w "World") + (return-writer 10)))) + +(test-equal '(10 "HelloWorld") + (run-writer + (do "Hello" "World" + (return-writer 10)))) + +(test-equal '(3 "Applied + to (1 2) ⇒ 3\n") + (run-writer (with-writer + 1 2))) + +(test-equal '(10 "Hello, World") + (run-writer + (do (string-append "Hello" ", ") + "World" + (return-writer 10)))) + +(test-end "writer-test") -- cgit v1.2.3