tests/test-aggro.R

In jhavstad8/inspiRe: Gives inspirational and motivational messages

test_that("aggro works", {
  correct_results <- c("Try not to be an idiot today, Josh.",
                       "You've spent too many years being a loser. It's time to be a winner Josh.",
                       "Josh, you're going to be a failure forever if you keep doing what you're doing.")
  my_result <- aggro("Josh")

  expect_equal(my_result %in% correct_results, TRUE)
})