diff --git a/exercises/scrabble-score/test/Tests.hs b/exercises/scrabble-score/test/Tests.hs index cbc89e09d..4126a2cba 100644 --- a/exercises/scrabble-score/test/Tests.hs +++ b/exercises/scrabble-score/test/Tests.hs @@ -23,7 +23,7 @@ specs = describe "scrabble-score" $ do where assertion = scoreWord input `shouldBe` fromIntegral expected --- Test cases adapted from `exercism/x-common/scrabble-score.json` on 2016-07-26. +-- Test cases adapted from `exercism/x-common/scrabble-score.json` on 2017-01-31. data Case = Case { description :: String , input :: String @@ -75,4 +75,8 @@ cases = [ Case { description = "lowercase letter" , input = "" , expected = 0 } + , Case { description = "entire alphabet available" + , input = "abcdefghijklmnopqrstuvwxyz" + , expected = 87 + } ]