tests/testthat/test-cats.R

In skreling/pets: Evaluates Your Feelings About Pets

test_that("logical operations work", {
  expect_equal(cats(TRUE), 'I love cats!')
})

test_that("logical operations work", {
  expect_equal(cats(1), 'I love cats!')
})

test_that("logical operations work", {
  expect_equal(cats(FALSE), 'I am not a cat person.')
})

test_that("logical operations work", {
  expect_equal(cats(0), 'I am not a cat person.')
})