tests/testthat/test-groan_id.R

In dadjokeapi: Return a Random Dad Joke

context("groan id")
skip_on_cran()
x <- groan_id("GlGBIY0wAAd")

test_that("groan gets a specific joke", {
  expect_is(x$joke, "character")
  expect_equal(names(x), c("joke", "id"))
  expect_equal(x$joke, "How much does a hipster weigh? An instagram.")
})

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

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