skip tests on CRAN

r-geoflow · Jun 10, 2024 · f45df70 · f45df70
1 parent 53b7bc5
commit f45df70
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 0 deletions.
diff --git a/tests/testthat/test_config_metadata_gsheets_sdi_geoserver_geotiff.R b/tests/testthat/test_config_metadata_gsheets_sdi_geoserver_geotiff.R
@@ -10,6 +10,7 @@ cfg_file = system.file("extdata/workflows/config_metadata_gsheets_sdi_geoserver_
 
 #init
 test_that("init",{
+  testthat::skip_on_cran()
   CFG <- geoflow::initWorkflow(cfg_file)
   expect_is(CFG$metadata$content, "list")
   expect_equal(length(CFG$metadata$content), 2L)
@@ -27,6 +28,7 @@ test_that("init",{
 
 #debug
 test_that("debug",{
+  testthat::skip_on_cran()
   DEBUG <- geoflow::debugWorkflow(cfg_file, entityIndex = 1, dir = ".")
   expect_equal(names(DEBUG), c("config", "entity"))
   expect_is(DEBUG$config, "list")
@@ -35,6 +37,7 @@ test_that("debug",{
 
 #execute
 test_that("execute",{
+  testthat::skip_on_cran()
   EXEC <- geoflow::executeWorkflow(cfg_file, dir = ".")
   expect_true(dir.exists(EXEC))
   expect_true(file.exists(file.path(EXEC, "job.json")))

diff --git a/tests/testthat/test_config_metadata_gsheets_sdi_geoserver_geotiff_view.R b/tests/testthat/test_config_metadata_gsheets_sdi_geoserver_geotiff_view.R
@@ -10,6 +10,7 @@ cfg_file = system.file("extdata/workflows/config_metadata_gsheets_sdi_geoserver_
 
 #init
 test_that("init",{
+  testthat::skip_on_cran()
   CFG <- geoflow::initWorkflow(cfg_file)
   expect_is(CFG$metadata$content, "list")
   expect_equal(length(CFG$metadata$content), 2L)
@@ -27,6 +28,7 @@ test_that("init",{
 
 #debug
 test_that("debug",{
+  testthat::skip_on_cran()
   DEBUG <- geoflow::debugWorkflow(cfg_file, entityIndex = 1, dir = ".")
   expect_equal(names(DEBUG), c("config", "entity"))
   expect_is(DEBUG$config, "list")
@@ -35,6 +37,7 @@ test_that("debug",{
 
 #execute
 test_that("execute",{
+  testthat::skip_on_cran()
   EXEC <- geoflow::executeWorkflow(cfg_file, dir = ".")
   expect_true(dir.exists(EXEC))
   expect_true(file.exists(file.path(EXEC, "job.json")))

diff --git a/tests/testthat/test_config_metadata_gsheets_sdi_geoserver_shp.R b/tests/testthat/test_config_metadata_gsheets_sdi_geoserver_shp.R
@@ -10,6 +10,7 @@ cfg_file = system.file("extdata/workflows/config_metadata_gsheets_sdi_geoserver_
 
 #init
 test_that("init",{
+  testthat::skip_on_cran()
   CFG <- geoflow::initWorkflow(cfg_file)
   expect_is(CFG$metadata$content, "list")
   expect_equal(length(CFG$metadata$content), 2L)
@@ -27,6 +28,7 @@ test_that("init",{
 
 #debug
 test_that("debug",{
+  testthat::skip_on_cran()
   DEBUG <- geoflow::debugWorkflow(cfg_file, entityIndex = 1, dir = ".")
   expect_equal(names(DEBUG), c("config", "entity"))
   expect_is(DEBUG$config, "list")
@@ -35,6 +37,7 @@ test_that("debug",{
 
 #execute
 test_that("execute",{
+  testthat::skip_on_cran()
   EXEC <- geoflow::executeWorkflow(cfg_file, dir = ".")
   expect_true(dir.exists(EXEC))
   expect_true(file.exists(file.path(EXEC, "job.json")))