tests/sls-tests.R

In ScrabbleScore: Calculates Scrabble score for strings

library(testthat)
library(ScrabbleScore)

test_that("all the letters map to the correct score",{
  expect_equal(sls("a"),1)
  expect_equal(sls("b"),3)
  expect_equal(sls("c"),3)
  expect_equal(sls("d"),2)
  expect_equal(sls("e"),1)
  expect_equal(sls("f"),4)
  expect_equal(sls("g"),2)
  expect_equal(sls("h"),4)
  expect_equal(sls("i"),1)
  expect_equal(sls("j"),8)
  expect_equal(sls("k"),5)
  expect_equal(sls("l"),1)
  expect_equal(sls("m"),3)
  expect_equal(sls("n"),1)
  expect_equal(sls("o"),1)
  expect_equal(sls("p"),3)
  expect_equal(sls("q"),10)
  expect_equal(sls("r"),1)
  expect_equal(sls("s"),1)
  expect_equal(sls("t"),1)
  expect_equal(sls("u"),1)
  expect_equal(sls("v"),4)
  expect_equal(sls("w"),4)
  expect_equal(sls("x"),8)
  expect_equal(sls("y"),4)
  expect_equal(sls("z"),10)
})