From 4453074406342e4c5dea5bf1c524cde3f1e5ede3 Mon Sep 17 00:00:00 2001 From: eblondel Date: Thu, 16 May 2024 17:32:45 +0200 Subject: [PATCH] tests --- tests/testthat/test_communities.R | 4 ++-- tests/testthat/test_funders.R | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/tests/testthat/test_communities.R b/tests/testthat/test_communities.R index e16d320..40eff37 100644 --- a/tests/testthat/test_communities.R +++ b/tests/testthat/test_communities.R @@ -21,7 +21,7 @@ test_that("communities are retrieved",{ test_that("community is retrieved by id",{ zenodo <- ZenodoManager$new(logger = "INFO") zen_community <- zenodo$getCommunityById("fisheries") - expect_equal(zen_community$id, "fisheries") - expect_equal(zen_community$title, "Fisheries and aquaculture") + expect_equal(zen_community$slug, "fisheries") + expect_equal(zen_community$metadata$title, "Fisheries and aquaculture") Sys.sleep(2) }) \ No newline at end of file diff --git a/tests/testthat/test_funders.R b/tests/testthat/test_funders.R index 7cff422..93bacfe 100644 --- a/tests/testthat/test_funders.R +++ b/tests/testthat/test_funders.R @@ -20,7 +20,7 @@ test_that("funders are retrieved",{ test_that("funder is retrieved by id",{ zenodo <- ZenodoManager$new(logger = "INFO") - zen_funder <- zenodo$getFunderById("10.13039/100000863") - expect_equal(zen_funder$metadata$doi, "10.13039/100000863") + zen_funder <- zenodo$getFunderById("0553w5c95") + expect_equal(zen_funder$identifiers[[1]]$identifier, "0553w5c95") Sys.sleep(2) }) \ No newline at end of file