24:I[213999,["/_next/static/chunks/16a29cd6304f2411.js","/_next/static/chunks/1f26200cd6d05dff.js","/_next/static/chunks/c3f9d80d717636c8.js","/_next/static/chunks/bc1d040bf8e65c58.js","/_next/static/chunks/debb321617d7ca1e.js","/_next/static/chunks/f64101a76fad54b1.js","/_next/static/chunks/94fbb7fa806ad56b.js","/_next/static/chunks/db9978aba23a417e.js","/_next/static/chunks/14f8985e1634915f.js","/_next/static/chunks/aec63f7bf4bac799.js","/_next/static/chunks/2ed14a01cc7b5d05.js","/_next/static/chunks/e95f3e95128ec76b.js","/_next/static/chunks/7bba671d0b05dc6c.js","/_next/static/chunks/882a0401193a3b5d.js","/_next/static/chunks/abd3194e107ec3ca.js"],"AcademyWorkspaceWrapper"] 26:I[422650,["/_next/static/chunks/0306128cacc23787.js"],"IconMark"] 25:T466,source("./scrabble-score.R") library(testthat) test_that("lowercase letter", { input <- "a" expect_equal(scrabble_score(input), 1) }) test_that("uppercase letter", { input <- "A" expect_equal(scrabble_score(input), 1) }) test_that("valuable letter", { input <- "f" expect_equal(scrabble_score(input), 4) }) test_that("short word", { input <- "at" expect_equal(scrabble_score(input), 2) }) test_that("short, valuable word", { input <- "zoo" expect_equal(scrabble_score(input), 12) }) test_that("medium word", { input <- "street" expect_equal(scrabble_score(input), 6) }) test_that("medium, valuable word", { input <- "quirky" expect_equal(scrabble_score(input), 22) }) test_that("long, mixed-case word", { input <- "OxyphenButazone" expect_equal(scrabble_score(input), 41) }) test_that("english-like word", { input <- "pinata" expect_equal(scrabble_score(input), 8) }) test_that("empty input", { input <- "" expect_equal(scrabble_score(input), 0) }) test_that("entire alphabet available", { input <- "abcdefghijklmnopqrstuvwxyz" expect_equal(scrabble_score(input), 87) })