tests/testthat/test-check.R

In matt-dray/linkrot: Check Webpages For Linkrot

page <- "https://www.rostrum.blog/"
page_404 <- "https://www.rostrum.blog/404"

test_that("output of check is a dataframe", {

  valid_out <- detect_rot(page)

  # Expect a tibble back if URL is valid
  expect_type(valid_out, "list")
  expect_equal(class(valid_out), c("tbl_df", "tbl", "data.frame"))

})

test_that("invalid inputs cause errors", {

  # Invalid page argument
  expect_error(detect_rot())
  expect_error(detect_rot(1))
  expect_error(detect_rot(c(page, page)))
  expect_error(detect_rot(list(page)))

  # Correct class, but can't resolve
  expect_error(detect_rot("x"))

})

test_that("unresolvable page causes error", {

  expect_error(detect_rot(page_404))

})