tests/testthat/test_new_data_product.R

In rDataPipeline: Functions to Interact with the 'FAIR Data Pipeline'

context("Testing new_data_product()")

UID <- paste0("test_new_data_product_",
              openssl::sha1(x = as.character(Sys.time())))

endpoint <- Sys.getenv("FDP_endpoint")

object_url <- post_data("object",
                        list(description = UID),
                        endpoint = endpoint)

namespace_url <- post_data("namespace",
                           list(name = UID),
                           endpoint = endpoint)

test_that("new entry in data_product returns API URL", {
  expect_true(grepl("data_product",
                    new_data_product(name = UID,
                                     version = create_version_number(),
                                     object_url = object_url,
                                     namespace_url = namespace_url,
                                     endpoint = endpoint)))
})

test_that("existing entry in data_product returns API URL", {
  expect_true(grepl("data_product",
                    new_data_product(name = UID,
                                     version = create_version_number(),
                                     object_url = object_url,
                                     namespace_url = namespace_url,
                                     endpoint = endpoint)))
})