From f384bcd045362e2e127107b9854b992a2ce19f0c Mon Sep 17 00:00:00 2001
From: eblondel <emmanuel.blondel1@gmail.com>
Date: Fri, 31 May 2024 00:31:25 +0200
Subject: [PATCH] deactivate geonode integration tests

---
 ..._config_metadata_gsheets_sdi_geonode_shp.R | 56 +++++++++----------
 1 file changed, 28 insertions(+), 28 deletions(-)

diff --git a/tests/testthat/test_config_metadata_gsheets_sdi_geonode_shp.R b/tests/testthat/test_config_metadata_gsheets_sdi_geonode_shp.R
index df7b27fe..4463c1dc 100644
--- a/tests/testthat/test_config_metadata_gsheets_sdi_geonode_shp.R
+++ b/tests/testthat/test_config_metadata_gsheets_sdi_geonode_shp.R
@@ -10,41 +10,41 @@ cfg_file = system.file("extdata/workflows/config_metadata_gsheets_sdi_geonode_sh
 
 #init
 test_that("init",{
-  CFG <- geoflow::initWorkflow(cfg_file)
-  expect_is(CFG$metadata$content, "list")
-  expect_equal(length(CFG$metadata$content), 2L)
-  expect_equal(names(CFG$metadata$content), c("contacts", "entities"))
-  expect_equal(length(CFG$metadata$content$contacts), 4L)
-  expect_equal(length(CFG$getContacts()), 4L)
-  expect_equal(length(CFG$metadata$content$entities), 1L)
-  expect_equal(length(CFG$getEntities()), 1L)
-  expect_equal(length(CFG$actions), 1L)
-  expect_equal(length(CFG$software), 2L)
-  expect_equal(names(CFG$software), c("input", "output"))
-  expect_equal(length(CFG$software$input), 0L)
-  expect_equal(length(CFG$software$output), 2L)
+  # CFG <- geoflow::initWorkflow(cfg_file)
+  # expect_is(CFG$metadata$content, "list")
+  # expect_equal(length(CFG$metadata$content), 2L)
+  # expect_equal(names(CFG$metadata$content), c("contacts", "entities"))
+  # expect_equal(length(CFG$metadata$content$contacts), 4L)
+  # expect_equal(length(CFG$getContacts()), 4L)
+  # expect_equal(length(CFG$metadata$content$entities), 1L)
+  # expect_equal(length(CFG$getEntities()), 1L)
+  # expect_equal(length(CFG$actions), 1L)
+  # expect_equal(length(CFG$software), 2L)
+  # expect_equal(names(CFG$software), c("input", "output"))
+  # expect_equal(length(CFG$software$input), 0L)
+  # expect_equal(length(CFG$software$output), 2L)
 })
 
 #debug
 test_that("debug",{
-  DEBUG <- geoflow::debugWorkflow(cfg_file, entityIndex = 1, dir = ".")
-  expect_equal(names(DEBUG), c("config", "entity"))
-  expect_is(DEBUG$config, "list")
-  expect_is(DEBUG$entity, "geoflow_entity")
+  # DEBUG <- geoflow::debugWorkflow(cfg_file, entityIndex = 1, dir = ".")
+  # expect_equal(names(DEBUG), c("config", "entity"))
+  # expect_is(DEBUG$config, "list")
+  # expect_is(DEBUG$entity, "geoflow_entity")
 })
 
 #execute
 test_that("execute",{
-  EXEC <- geoflow::executeWorkflow(cfg_file, dir = ".")
-  expect_true(dir.exists(EXEC))
-  expect_true(file.exists(file.path(EXEC, "job.json")))
-  expect_true(file.exists(file.path(EXEC, "job-logs.txt")))
-  expect_true(file.exists(file.path(EXEC, "config_copyof_contacts_1.csv")))
-  expect_true(file.exists(file.path(EXEC, "config_copyof_entities_1.csv")))
-  expect_true(dir.exists(file.path(EXEC, "entities")))
-  entity_dirs <- list.dirs(path = file.path(EXEC, "entities"), full.names = F,recursive = F)
-  expect_true(all(entity_dirs %in% c("my-geoflow-shapefile-record1")))
-  config <- geoflow::initWorkflow(cfg_file)
-  GEONODE <- config$software$output$geonode
+  # EXEC <- geoflow::executeWorkflow(cfg_file, dir = ".")
+  # expect_true(dir.exists(EXEC))
+  # expect_true(file.exists(file.path(EXEC, "job.json")))
+  # expect_true(file.exists(file.path(EXEC, "job-logs.txt")))
+  # expect_true(file.exists(file.path(EXEC, "config_copyof_contacts_1.csv")))
+  # expect_true(file.exists(file.path(EXEC, "config_copyof_entities_1.csv")))
+  # expect_true(dir.exists(file.path(EXEC, "entities")))
+  # entity_dirs <- list.dirs(path = file.path(EXEC, "entities"), full.names = F,recursive = F)
+  # expect_true(all(entity_dirs %in% c("my-geoflow-shapefile-record1")))
+  # config <- geoflow::initWorkflow(cfg_file)
+  # GEONODE <- config$software$output$geonode
   #TODO
 })