tests/testthat/test-networking.R

In ami: Checks for Various Computing Environments

test_that("online() works as expected", {
  expect_equal(online(), curl::has_internet())

  skip_if_offline()
  expect_true(online())
})

test_that("using_host() works as expected", {
  expect_true(using_host(Sys.info()["nodename"]))
  expect_false(using_host("notarealhostname.biz"))
})