test_that("Complains when network is down", {
  skip_on_ci()
  skip_on_cran()

  Sys.setenv("NETWORK_UP" = FALSE)
  expect_message(default_version())
  expect_message(dataset_access_function())
  expect_message(dataset_get())
  
  #commenting out for now to test in CI, see issue #235
  Sys.setenv("NETWORK_UP" = TRUE)
  expect_visible(default_version())
  expect_visible(dataset_access_function())
  expect_visible(dataset_get())
})