# These tests are auto-generated with test data from: # https://github.com/exercism/problem-specifications/tree/main/exercises/bob/canonical-data.json # File last updated on 2026-03-13 source("./bob.R") library(testthat) test_that("stating something", { input <- "Tom-ay-to, tom-aaaah-to." expect_equal(bob(input), "Whatever.") }) test_that("shouting", { input <- "WATCH OUT!" expect_equal(bob(input), "Whoa, chill out!") }) test_that("shouting gibberish", { input <- "FCECDFCAAB" expect_equal(bob(input), "Whoa, chill out!") }) test_that("asking a question", { input <- "Does this cryogenic chamber make me look fat?" expect_equal(bob(input), "Sure.") }) test_that("asking a numeric question", { input <- "You are, what, like 15?" expect_equal(bob(input), "Sure.") }) test_that("asking gibberish", { input <- "fffbbcbeab?" expect_equal(bob(input), "Sure.") }) test_that("talking forcefully", { input <- "Hi there!" expect_equal(bob(input), "Whatever.") }) test_that("using acronyms in regular speech", { input <- "It's OK if you don't want to go work for NASA." expect_equal(bob(input), "Whatever.") }) test_that("forceful question", { input <- "WHAT'S GOING ON?" expect_equal(bob(input), "Calm down, I know what I'm doing!") }) test_that("shouting numbers", { input <- "1, 2, 3 GO!" expect_equal(bob(input), "Whoa, chill out!") }) test_that("no letters", { input <- "1, 2, 3" expect_equal(bob(input), "Whatever.") }) test_that("question with no letters", { input <- "4?" expect_equal(bob(input), "Sure.") }) test_that("shouting with special characters", { input <- "ZOMG THE %^*@#$(*^ ZOMBIES ARE COMING!!11!!1!" expect_equal(bob(input), "Whoa, chill out!") }) test_that("shouting with no exclamation mark", { input <- "I HATE THE DENTIST" expect_equal(bob(input), "Whoa, chill out!") }) test_that("statement containing question mark", { input <- "Ending with ? means a question." expect_equal(bob(input), "Whatever.") }) test_that("non-letters with question", { input <- ":) ?" expect_equal(bob(input), "Sure.") }) test_that("prattling on", { input <- "Wait! Hang on. Are you going to be OK?" expect_equal(bob(input), "Sure.") }) test_that("silence", { input <- "" expect_equal(bob(input), "Fine. Be that way!") }) test_that("prolonged silence", { input <- " " expect_equal(bob(input), "Fine. Be that way!") }) test_that("alternate silence", { input <- " " expect_equal(bob(input), "Fine. Be that way!") }) test_that("starting with whitespace", { input <- " hmmmmmmm..." expect_equal(bob(input), "Whatever.") }) test_that("ending with whitespace", { input <- "Okay if like my spacebar quite a bit? " expect_equal(bob(input), "Sure.") }) test_that("other whitespace", { input <- " " expect_equal(bob(input), "Fine. Be that way!") }) test_that("non-question ending with whitespace", { input <- "This is a statement ending with whitespace " expect_equal(bob(input), "Whatever.") }) test_that("multiple line question", { input <- " Does this cryogenic chamber make me look fat?" expect_equal(bob(input), "Sure.") })