Skip test if offline

RevolutionAnalytics · Mar 16, 2017 · d9b269d · d9b269d
1 parent 8753820
commit d9b269d
Show file tree

Hide file tree

Showing 6 changed files with 45 additions and 18 deletions.
diff --git a/R/mranUrl.R b/R/mranUrl.R
@@ -10,7 +10,6 @@ stopIfInvalidDate <- function(snapshotDate, verbose = TRUE){
   if(as.Date(snapshotDate) > Sys.Date())
     stop("snapshotDate can not be in the future!", call. = FALSE)
 
-
   validSnapshots <- tryCatch(as.Date(getValidSnapshots()), error=function(e)e)
   if(inherits(validSnapshots, "error")){
     mssg(verbose, "Unable to connect to MRAN. Skipping some date validations.") 
@@ -76,6 +75,9 @@ setCheckpointUrl <- function(url){
 
 
 tryUrl <- function(url){
+  timeout <- getOption("timeout")
+  on.exit(options(timeout = timeout))
+  options(timeout = 5)
   con <- suppressWarnings(tryCatch(url(url), error = function(e)e))
   msg <- paste0(
     "Invalid value for mranRootUrl.\n", 

diff --git a/tests/testthat/helper.R b/tests/testthat/helper.R
@@ -0,0 +1,15 @@
+is_online <- function(){
+  u <- tryCatch(url("https://mran.microsoft.com"),
+                error = function(e)e)
+  if(inherits(u, "error")){
+    u <- url("http://mran.microsoft.com")
+  }
+  on.exit(close(u))
+  z <- tryCatch(suppressWarnings(readLines(u, n = 1, warn = FALSE)),
+                error = function(e)e)
+  !inherits(z, "error")
+}
+
+skip_if_offline <- function(){
+  if(!is_online()) testthat::skip("Offline. Skipping test.")
+}
diff --git a/tests/testthat/test-0-is-404.R b/tests/testthat/test-0-is-404.R
@@ -3,6 +3,7 @@ if(interactive()) library(testthat)
 context("is.404")
 
 test_that("is.404", {
+  skip_if_offline()
   describe("is.404 works with http", {
     it("works on http", {
       expect_true(is.404("http://mran.microsoft.com/snapshot/1972-01-01", warn = FALSE))

diff --git a/tests/testthat/test-0-snapshots.R b/tests/testthat/test-0-snapshots.R
@@ -1,6 +1,6 @@
 if(interactive()) library(testthat)
 
-context("MRAN snapshots")
+context("snapshots")
 
 describe("Validate snapshotDate argument",{
   it("stops if missing snapshotDate", {
@@ -34,6 +34,7 @@ describe("Validate snapshotDate argument",{
 
 test_that("set http/https correctly", {
   skip_on_cran()
+  skip_if_offline()
   describe("set http/https correctly", {
     it("resolves to http/https based on R version number", {
       if(getRversion() >= "3.2.0"  && httpsSupported()){

diff --git a/tests/testthat/test-2-snapshot-dates.R b/tests/testthat/test-2-snapshot-dates.R
@@ -4,6 +4,7 @@ context("valid snapshot dates")
 describe("getValidSnapshots finds valid dates", {
 
   it("returns a list of dates", {
+    skip_if_offline()
     d <- getValidSnapshots()
     expect_is(d, "character")
     expect_is(as.Date(d), "Date")
@@ -12,6 +13,7 @@ describe("getValidSnapshots finds valid dates", {
 
   it("suggests a reasonable alternative", {
     # On MRAN, 2015-06-04 to 2015-06-08 are missing
+    skip_if_offline()
     expect_error(
       stopIfInvalidDate("2015-06-05"),
       "Snapshot does not exist on MRAN. Try 2015-06-03 or 2015-06-09."

diff --git a/tests/testthat/test-3-checkpoint.R b/tests/testthat/test-3-checkpoint.R
@@ -171,26 +171,32 @@ test_checkpoint <- function(https = FALSE, snap.dates){
 
 #  ------------------------------------------------------------------------
 
-
-MRAN.dates <- getValidSnapshots()
-MRAN.sample <- sample(MRAN.dates, 2, replace = FALSE)
-
-initialUrl <- getOption("checkpoint.mranUrl")
-
-if(getRversion() >= "3.2.0" && httpsSupported()){
-  context("https")
+if(is_online()){
+  MRAN.dates <- getValidSnapshots()
+  MRAN.sample <- sample(MRAN.dates, 2, replace = FALSE)
+
+  initialUrl <- getOption("checkpoint.mranUrl")
 
-  options(checkpoint.mranUrl = "https://mran.microsoft.com/")
-  test_checkpoint(http = TRUE, snap.dates = MRAN.default)
+  if(getRversion() >= "3.2.0" && httpsSupported()){
+    context("https")
+
+    options(checkpoint.mranUrl = "https://mran.microsoft.com/")
+    test_checkpoint(http = TRUE, snap.dates = MRAN.default)
+
+    options(checkpoint.mranUrl = NULL)
+  }
 
-  options(checkpoint.mranUrl = NULL)
+  context("http")
+  options(checkpoint.mranUrl = "http://mran.microsoft.com/")
+  test_checkpoint(http = FALSE, snap.dates = MRAN.default)
+  options(checkpoint.mranUrl = initialUrl)
+} else {
+  context("https")
+  test_that("No test run in offline", {
+    skip_if_offline()
+  })
 }
 
-context("http")
-options(checkpoint.mranUrl = "http://mran.microsoft.com/")
-test_checkpoint(http = FALSE, snap.dates = MRAN.default)
-options(checkpoint.mranUrl = initialUrl)
-