skip on cran

DOI-USGS · Oct 3, 2015 · c9877d8 · c9877d8
1 parent 3a6e1ad
commit c9877d8
Show file tree

Hide file tree

Showing 4 changed files with 11 additions and 0 deletions.
diff --git a/tests/testthat/test-download_result.R b/tests/testthat/test-download_result.R
@@ -2,12 +2,14 @@ context("download and load")
 
 
 test_that("download works", {
+  testthat::skip_on_cran()
   cancel()
   job <<- geoknife(stencil = c(-89,42), fabric = 'prism', wait=TRUE)
   file = download(job)
   expect_true(file.exists(file))
 })
 
 test_that("load result works", {
+  testthat::skip_on_cran()
   expect_is(result(job),'data.frame')
 })
diff --git a/tests/testthat/test-query_webdatasets.R b/tests/testthat/test-query_webdatasets.R
@@ -2,25 +2,30 @@ context("using query for webdata")
 
 
 test_that("webdata query returns a datagroup", {
+  testthat::skip_on_cran()
   datasets <<- query('webdata')
   expect_is(datasets, 'datagroup')
 })
 
 test_that("webdata query returns a list", {
+  testthat::skip_on_cran()
   wd <- webdata(datasets[4])
   expect_is(query(wd,'variables'), 'character')
 })
 
 test_that("webdata title returns a title", {
+  testthat::skip_on_cran()
   expect_is(title(datasets[4]), 'character')
 })
 
 test_that("webdata url returns a url", {
+  testthat::skip_on_cran()
   expect_is(url(datasets[4]), 'character')
   expect_is(url(datasets[4:5]), 'character')
 })
 
 
 test_that("webdata abstract returns an abstract", {
+  testthat::skip_on_cran()
   expect_is(url(datasets[4]), 'character')
 })
diff --git a/tests/testthat/test-query_webgeom.R b/tests/testthat/test-query_webgeom.R
@@ -2,6 +2,7 @@ context("query webgeom")
 
 
 test_that("query geoms", {
+  testthat::skip_on_cran()
   expect_is(query(webgeom(), 'geoms'),'character')
   wg <- webgeom(geom = "sample:CONUS_states",
                 attribute = "STATE",
@@ -12,13 +13,15 @@ test_that("query geoms", {
 })
 
 test_that("query attributes", {
+  testthat::skip_on_cran()
   wg <- webgeom(geom = "sample:CONUS_states",
               attribute = "STATE",
               values = "New Hampshire")
   expect_is(query(wg, 'attributes'),'character')
 })
 
 test_that("query values", {
+  testthat::skip_on_cran()
   wg <- webgeom(geom = "sample:CONUS_states",
                 attribute = "STATE",
                 values = "New Hampshire")

diff --git a/tests/testthat/test-waitUntilFinished.R b/tests/testthat/test-waitUntilFinished.R
@@ -4,6 +4,7 @@ stencil <- webgeom('state::Wisconsin')
 fabric <- webdata('prism')
 
 test_that("creating simple job", {
+  testthat::skip_on_cran()
   geoknife:::setJobState('none')
   geoknife(stencil, fabric, wait = TRUE)
   expect_equal(geoknife:::getJobState(), "Process successful")