Sha256: d658ea93e930f468ad3f0e5c70dc6c88e6f1f19b1d8baf7511678e8cf86a0434
Contents?: true
Size: 1.38 KB
Versions: 141
Compression:
Stored size: 1.38 KB
Contents
module Test.Main where
import Prelude
import Test.Unit.Assert as Assert
import Control.Monad.Eff (Eff)
import Control.Monad.Aff.AVar (AVAR)
import Control.Monad.Eff.Console (CONSOLE)
import ScrabbleScore (scoreWord)
import Test.Unit (TestSuite, suite, test)
import Test.Unit.Console (TESTOUTPUT)
import Test.Unit.Main (runTest)
main :: forall eff
. Eff ( avar :: AVAR
, console :: CONSOLE
, testOutput :: TESTOUTPUT
| eff
)
Unit
main = runTest suites
suites :: forall e. TestSuite e
suites = do
suite "ScrabbleScore.scoreWord" do
test "lowercase letter" do
Assert.equal 1 (scoreWord "a")
test "uppercase letter" do
Assert.equal 1 (scoreWord "A")
test "valuable letter" do
Assert.equal 4 (scoreWord "f")
test "short word" do
Assert.equal 2 (scoreWord "at")
test "short, valuable word" do
Assert.equal 12 (scoreWord "zoo")
test "medium word" do
Assert.equal 6 (scoreWord "street")
test "medium, valuable word" do
Assert.equal 22 (scoreWord "quirky")
test "long, mixed-case word" do
Assert.equal 41 (scoreWord "OxyphenButazone")
test "english-like word" do
Assert.equal 8 (scoreWord "pinata")
test "non-english letter is not scored" do
Assert.equal 7 (scoreWord "piñata")
test "empty input" do
Assert.equal 0 (scoreWord "")
Version data entries
141 entries across 141 versions & 1 rubygems