diff --git a/tests/testthat/test_config_metadata_gsheets.R b/tests/testthat/test_config_metadata_gsheets.R index c7b94704..178dc96d 100644 --- 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 index 5134655e..8b7467da 100644 --- 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 index 7a8b8696..01ffaea5 100644 --- 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 index 355ae9b0..3b8f5eac 100644 --- 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 index ecd52aac..7515f0c7 100644 --- 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 index 523eb007..df7b27fe 100644 --- 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 index c0fe05d0..d8fc0585 100644 --- 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 index 68c840f6..f6f2410f 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 @@ -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 index 2f95d2a5..10a29a96 100644 --- 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 index 11b6b798..741c0b58 100644 --- 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)