tests/testthat/test-groan.R

In dadjokeapi: Return a Random Dad Joke

context("groan")
skip_on_cran()
x <- groan(FALSE)

test_that("groan gets a joke and an id", {
  expect_is(x$joke, "character")
  expect_equal(names(x), c("joke", "id"))
})

test_that("groan fails without internet", {
  mockery::stub(groan, "curl::has_internet", FALSE) 
  expect_error(groan(FALSE))
})

test_that("groan fails when return type isn't as expected",{
  mockery::stub(groan, "httr::http_type", "Knock, knock.  Who's there?  An incorrect API Response")
  expect_error(groan(FALSE))
})

test_that("Ba dum tsss works without beeping", {
  mockery::stub(groan, "beepr::beep", "Ba dum tsss")
  expect_is(groan()$joke, "character")
})