diff --git a/exercises/raindrops/test/Tests.hs b/exercises/raindrops/test/Tests.hs index 14989ec48..b89b6422f 100644 --- a/exercises/raindrops/test/Tests.hs +++ b/exercises/raindrops/test/Tests.hs @@ -19,20 +19,23 @@ specs = describe "raindrops" $ description = show number assertion = convert number `shouldBe` expected - -- Test cases adapted from `exercism/x-common/raindrops.json` on 2016-08-01. + -- Test cases adapted from `exercism/x-common` on 2016-09-19. - cases = [ ( 1, "1" ) - , ( 3, "Pling" ) - , ( 5, "Plang" ) - , ( 7, "Plong" ) - , ( 6, "Pling" ) - , ( 9, "Pling" ) - , ( 10, "Plang" ) - , ( 14, "Plong" ) - , ( 15, "PlingPlang" ) - , ( 21, "PlingPlong" ) - , ( 25, "Plang" ) - , ( 35, "PlangPlong" ) - , ( 49, "Plong" ) - , ( 52, "52" ) - , (105, "PlingPlangPlong") ] + cases = [ ( 1, "1" ) + , ( 3, "Pling" ) + , ( 5, "Plang" ) + , ( 7, "Plong" ) + , ( 6, "Pling" ) + , ( 8, "8" ) + , ( 9, "Pling" ) + , ( 10, "Plang" ) + , ( 14, "Plong" ) + , ( 15, "PlingPlang" ) + , ( 21, "PlingPlong" ) + , ( 25, "Plang" ) + , ( 27, "Pling" ) + , ( 35, "PlangPlong" ) + , ( 49, "Plong" ) + , ( 52, "52" ) + , ( 105, "PlingPlangPlong") + , (3125, "Plang" ) ]