diff --git a/tests/testthat/test_config_metadata_gsheets_sdi_geoserver_geotiff.R b/tests/testthat/test_config_metadata_gsheets_sdi_geoserver_geotiff.R index 073044a..1517de5 100644 --- 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 index f6f2410..d16d854 100644 --- 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 index 10a29a9..564cd3a 100644 --- 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")))