From 255e947a1581839b42d165263cf187589e633f5c Mon Sep 17 00:00:00 2001 From: Joe Gomain Hoyes Date: Thu, 13 May 2021 12:40:16 +0700 Subject: [PATCH 1/2] Ch6 - generalize concrete test Action Multiply (Array Int) --- exercises/chapter6/test/Main.purs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/exercises/chapter6/test/Main.purs b/exercises/chapter6/test/Main.purs index db280674e..218ba1282 100644 --- a/exercises/chapter6/test/Main.purs +++ b/exercises/chapter6/test/Main.purs @@ -206,7 +206,7 @@ Note to reader: Delete this line to expand comment block -} Assert.equal (act m1 (act m2 a)) $ act (m1 <> m2) a test "concrete" do - Assert.equal [ 3, 6, 9 ] + Assert.equal (map (act m1) a) $ act m1 a suite "Action Multiply (Array String)" do let From a108c5ffc1d973b07cae0b9ec40b3b32bd64c768 Mon Sep 17 00:00:00 2001 From: Joe Gomain Hoyes Date: Fri, 14 May 2021 15:58:56 +0700 Subject: [PATCH 2/2] Ch6 - rename the test --- exercises/chapter6/test/Main.purs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/exercises/chapter6/test/Main.purs b/exercises/chapter6/test/Main.purs index 218ba1282..16124f498 100644 --- a/exercises/chapter6/test/Main.purs +++ b/exercises/chapter6/test/Main.purs @@ -205,7 +205,7 @@ Note to reader: Delete this line to expand comment block -} test "act appended" do Assert.equal (act m1 (act m2 a)) $ act (m1 <> m2) a - test "concrete" do + test "act acts on elements" do Assert.equal (map (act m1) a) $ act m1 a suite "Action Multiply (Array String)" do