tests/test-inspiration.R

In jhavstad8/inspiRe: Gives inspirational and motivational messages

test_that("iNeed works", {
  correct_result <- "Everyday has the potential to be great. You are amazing! Don't let anyone tell you anything different."
  my_result <- iNeed("affirmation",3)
  expect_equal(my_result,correct_result)
})

test_that("iNeed works", {
  correct_result <- "Everyday has the potential to be great. You are amazing! Don't let anyone tell you anything different. In fact, you are the coolest, funniest, and most intelligent person I know."
  my_result <- iNeed("affirmation",8)
  expect_equal(my_result,correct_result)
})

test_that("iNeed works", {
  correct_result <- "Everyday has the potential to be great. Go and make things happen! No time to be lazy. You got this!"
  my_result <- iNeed("motivation",3)
  expect_equal(my_result,correct_result)
})

test_that("iNeed works", {
  correct_result <- "Everyday has the potential to be great. Go and make things happen! No time to be lazy. You got this! Things may seem bad now, but don't give up!"
  my_result <- iNeed("motivation",8)
  expect_equal(my_result,correct_result)
})