fix tests - error with contacts length

r-geoflow · Sep 8, 2023 · b2ca344 · b2ca344
1 parent 91643bf
commit b2ca344
Show file tree

Hide file tree

Showing 10 changed files with 20 additions and 20 deletions.
diff --git a/tests/testthat/test_config_metadata_gsheets.R b/tests/testthat/test_config_metadata_gsheets.R
@@ -14,8 +14,8 @@ test_that("init",{
   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), 3L)
-  expect_equal(length(CFG$getContacts()), 3L)
+  expect_equal(length(CFG$metadata$content$contacts), 4L)
+  expect_equal(length(CFG$getContacts()), 4L)
   expect_equal(length(CFG$metadata$content$entities), 2L)
   expect_equal(length(CFG$getEntities()), 2L)
   expect_equal(length(CFG$actions), 0L)

diff --git a/tests/testthat/test_config_metadata_gsheets_eml.R b/tests/testthat/test_config_metadata_gsheets_eml.R
@@ -14,8 +14,8 @@ test_that("init",{
   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), 3L)
-  expect_equal(length(CFG$getContacts()), 3L)
+  expect_equal(length(CFG$metadata$content$contacts), 4L)
+  expect_equal(length(CFG$getContacts()), 4L)
   expect_equal(length(CFG$metadata$content$entities), 2L)
   expect_equal(length(CFG$getEntities()), 2L)
   expect_equal(length(CFG$actions), 1L)

diff --git a/tests/testthat/test_config_metadata_gsheets_iso19115_inspire.R b/tests/testthat/test_config_metadata_gsheets_iso19115_inspire.R
@@ -14,8 +14,8 @@ test_that("init",{
   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), 3L)
-  expect_equal(length(CFG$getContacts()), 3L)
+  expect_equal(length(CFG$metadata$content$contacts), 4L)
+  expect_equal(length(CFG$getContacts()), 4L)
   expect_equal(length(CFG$metadata$content$entities), 2L)
   expect_equal(length(CFG$getEntities()), 2L)
   expect_equal(length(CFG$actions), 1L)

diff --git a/tests/testthat/test_config_metadata_gsheets_iso19115_inspire_geonetwork.R b/tests/testthat/test_config_metadata_gsheets_iso19115_inspire_geonetwork.R
@@ -16,8 +16,8 @@ test_that("init",{
   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), 3L)
-  expect_equal(length(CFG$getContacts()), 3L)
+  expect_equal(length(CFG$metadata$content$contacts), 4L)
+  expect_equal(length(CFG$getContacts()), 4L)
   expect_equal(length(CFG$metadata$content$entities), 2L)
   expect_equal(length(CFG$getEntities()), 2L)
   expect_equal(length(CFG$actions), 2L)

diff --git a/tests/testthat/test_config_metadata_gsheets_iso19115_inspire_geonetwork_with_uuid.R b/tests/testthat/test_config_metadata_gsheets_iso19115_inspire_geonetwork_with_uuid.R
@@ -16,8 +16,8 @@ test_that("init",{
   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), 3L)
-  expect_equal(length(CFG$getContacts()), 3L)
+  expect_equal(length(CFG$metadata$content$contacts), 4L)
+  expect_equal(length(CFG$getContacts()), 4L)
   expect_equal(length(CFG$metadata$content$entities), 2L)
   expect_equal(length(CFG$getEntities()), 2L)
   expect_equal(length(CFG$actions), 2L)

diff --git a/tests/testthat/test_config_metadata_gsheets_sdi_geonode_shp.R b/tests/testthat/test_config_metadata_gsheets_sdi_geonode_shp.R
@@ -14,8 +14,8 @@ test_that("init",{
   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), 3L)
-  expect_equal(length(CFG$getContacts()), 3L)
+  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)

diff --git a/tests/testthat/test_config_metadata_gsheets_sdi_geoserver_geotiff.R b/tests/testthat/test_config_metadata_gsheets_sdi_geoserver_geotiff.R
@@ -14,8 +14,8 @@ test_that("init",{
   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), 3L)
-  expect_equal(length(CFG$getContacts()), 3L)
+  expect_equal(length(CFG$metadata$content$contacts), 4L)
+  expect_equal(length(CFG$getContacts()), 4L)
   expect_equal(length(CFG$metadata$content$entities), 2L)
   expect_equal(length(CFG$getEntities()), 2L)
   expect_equal(length(CFG$actions), 1L)

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
@@ -14,8 +14,8 @@ test_that("init",{
   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), 3L)
-  expect_equal(length(CFG$getContacts()), 3L)
+  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)

diff --git a/tests/testthat/test_config_metadata_gsheets_sdi_geoserver_shp.R b/tests/testthat/test_config_metadata_gsheets_sdi_geoserver_shp.R
@@ -14,8 +14,8 @@ test_that("init",{
   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), 3L)
-  expect_equal(length(CFG$getContacts()), 3L)
+  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)

diff --git a/tests/testthat/test_config_metadata_gsheets_zenodo.R b/tests/testthat/test_config_metadata_gsheets_zenodo.R
@@ -14,8 +14,8 @@ test_that("init",{
   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), 3L)
-  expect_equal(length(CFG$getContacts()), 3L)
+  expect_equal(length(CFG$metadata$content$contacts), 4L)
+  expect_equal(length(CFG$getContacts()), 4L)
   expect_equal(length(CFG$metadata$content$entities), 2L)
   expect_equal(length(CFG$getEntities()), 2L)
   expect_equal(length(CFG$actions), 1L)