diff --git a/exercises/chapter6/test/Main.purs b/exercises/chapter6/test/Main.purs index db280674..16124f49 100644 --- a/exercises/chapter6/test/Main.purs +++ b/exercises/chapter6/test/Main.purs @@ -205,8 +205,8 @@ 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 - Assert.equal [ 3, 6, 9 ] + test "act acts on elements" do + Assert.equal (map (act m1) a) $ act m1 a suite "Action Multiply (Array String)" do let