tests/testthat/test-utils.R

In flashr: Create Flashcards of Terms and Definitions

test_that("connections to internet resources fail gracefully", {
  skip_on_cran()
  skip_on_ci()
  suppressMessages(expect_message(fail_gracefully("http://httpbin.org/status/404"), "Not Found \\(HTTP 404\\)"))
  suppressMessages(expect_message(fail_gracefully("http://httpbin.org/delay/2", 1), "Timeout was reached"))
  expect_silent(fail_gracefully("http://httpbin.org/"))
})