tests/testthat/test-eol_ping.R

In taxize: Taxonomic Information from Around the Web

context("eol_ping")

test_that("eol_ping returns the correct value", {
  skip_on_cran()
  skip_on_ci()

  Sys.sleep(0.5)
  expect_true(eol_ping())
  expect_false(eol_ping(503))
  Sys.sleep(0.5)
  expect_true(eol_ping("content"))
})