tests/testthat/acceptance_tests/test-getEntityByName.R

In AmundsenJunior/pfsrsdk: Functions for interacting with Platform for Science APIs

#' @author Adam Wheeler adam.wheeler@thermofisher.com
#' @author Scott Russell scott.russell@thermofisher.com
#' @author Natasha Mora natasha.mora@thermofisher.com
#' @description \code Tests for getEntityByName.

context("Tests for getEntityByName")

test_that(paste("test getEntityByName() on semantic version:", con$coreApi$semVer), {
  ta1 <- getEntityByName(con$coreApi, data$persistentEntityType, data$persistentEntityName, FALSE, useVerbose = verbose)

  name <- ta1$entity[[1]]$Name

  expect_match(name, data$persistentEntityName, all = verbose)
})

test_that(paste("getEntityByName returns successful with fullMetadata on semantic version:", con$coreApi$semVer), {
  ta <- getEntityByName(con$coreApi, data$persistentEntityType, data$persistentEntityName, TRUE, useVerbose = FALSE)

  expect_true(!is.null(ta$entity[[1]]$`Id@odata.type`))
})