Skip long-running tests on CRAN #207

Author: andrie

tests/testthat/test-0-snapshots.R

@@ -65,35 +65,36 @@ test_that("set http/https correctly", {
 
 
 context("is.404")
-describe("is.404 works with http", {
-  it("works on http", {
-    expect_true(is.404("http://mran.revolutionanalytics.com/snapshot/1972-01-01"))
-    expect_false(is.404("http://mran.revolutionanalytics.com/snapshot"))
-    expect_false(is.404("http://mran.revolutionanalytics.com/snapshot/2015-05-01"))
+test_that("is.404", {
+  describe("is.404 works with http", {
+    it("works on http", {
+      expect_true(is.404("http://mran.revolutionanalytics.com/snapshot/1972-01-01"))
+      expect_false(is.404("http://mran.revolutionanalytics.com/snapshot"))
+      expect_false(is.404("http://mran.revolutionanalytics.com/snapshot/2015-05-01"))
+    })
   })
-})
-
-describe("is.404 works with https", {
 
-  it("works on https", {
-    if(!httpsSupported()) skip("https not supported")
-    expect_true(is.404("https://mran.revolutionanalytics.com/snapshot/1972-01-01"))
-    expect_false(is.404("https://mran.revolutionanalytics.com/snapshot"))
-    expect_false(is.404("https://mran.revolutionanalytics.com/snapshot/2015-05-01"))
+  describe("is.404 works with https", {
 
-  })
-})
-
-describe("is.404 gracefully deals with https URLs when https not supported", {
-  
-  it("works even when https is not supported", {
-    with_mock(`checkpoint:::httpsSupported` = function(mran) FALSE, {
-      # if(!httpsSupported()) skip("https not supported")
+    it("works on https", {
+      if(!httpsSupported()) skip("https not supported")
       expect_true(is.404("https://mran.revolutionanalytics.com/snapshot/1972-01-01"))
-      expect_true(is.404("https://mran.revolutionanalytics.com/snapshot"))
-      expect_true(is.404("https://mran.revolutionanalytics.com/snapshot/2015-05-01"))
+      expect_false(is.404("https://mran.revolutionanalytics.com/snapshot"))
+      expect_false(is.404("https://mran.revolutionanalytics.com/snapshot/2015-05-01"))
+      
     })
+  })
+  
+  describe("is.404 gracefully deals with https URLs when https not supported", {
 
+    it("works even when https is not supported", {
+      with_mock(`checkpoint:::httpsSupported` = function(mran) FALSE, {
+        # if(!httpsSupported()) skip("https not supported")
+        expect_true(is.404("https://mran.revolutionanalytics.com/snapshot/1972-01-01"))
+        expect_true(is.404("https://mran.revolutionanalytics.com/snapshot"))
+        expect_true(is.404("https://mran.revolutionanalytics.com/snapshot/2015-05-01"))
+      })
+      
+    })
   })
 })
-