tests/test-doubtr.R

In jhavstad8/inspiRe: Gives inspirational and motivational messages

test_that("doubt works", {
  correct_result <- "Why would you doubt yourself? You've overcome more in the past."
  my_result <- doubt(1)
  expect_equal(my_result,correct_result)
})

test_that("doubt works", {
  correct_result <- "Why would you doubt yourself? You have the ability to do what you think you can't."
  my_result <- doubt(2)
  expect_equal(my_result,correct_result)
})

test_that("doubt works", {
  correct_result <- "Why would you doubt yourself? Shakespeare once said, 'Our doubts are traitors, and make us lose the good we oft might win, by fearing to attempt.'"
  my_result <- doubt(3)
  expect_equal(my_result,correct_result)
})