Skip tests if not online

Author: jimhester

tests/testthat/test-build-site.R

@@ -1,5 +1,6 @@
 test_that("Package pkgdown site can be built ", {
   # This test requires internet
+  skip_if_offline()
   skip_on_cran()
 
   destination <- path(tempdir(), "testPkgdown", "docs")

tests/testthat/test-reload.R

@@ -1,6 +1,4 @@
 test_that("reload works", {
-  skip_on_cran()
-
   withr::local_temp_libpaths()
 
   pkg <- as.package(test_path("testTest"))

tests/testthat/test-run-source.R

@@ -1,4 +1,5 @@
 test_that("gist containing single file works unambiguously", {
+  skip_if_offline()
   skip_on_cran()
   withr::local_envvar(list("GITHUB_PAT" = bundled_pat))
 
@@ -13,6 +14,7 @@ test_that("gist containing single file works unambiguously", {
 })
 
 test_that("gist with multiple files uses first with warning", {
+  skip_if_offline()
   skip_on_cran()
   withr::local_envvar(list("GITHUB_PAT" = bundled_pat))
 
@@ -30,6 +32,7 @@ test_that("gist with multiple files uses first with warning", {
 })
 
 test_that("can specify filename", {
+  skip_if_offline()
   skip_on_cran()
   withr::local_envvar(list("GITHUB_PAT" = bundled_pat))
 
@@ -45,6 +48,7 @@ test_that("can specify filename", {
 })
 
 test_that("error if file doesn't exist or no files", {
+  skip_if_offline()
   skip_on_cran()
   withr::local_envvar(list("GITHUB_PAT" = bundled_pat))
 

tests/testthat/test-sitrep.R

@@ -1,4 +1,5 @@
 test_that("check_for_rstudio_updates", {
+  skip_if_offline()
   skip_on_cran()
 
   # returns nothing rstudio not available