#' @author Adam Wheeler adam.wheeler@thermofisher.com
#' @author Scott Russell scott.russell@thermofisher.com
#' @description \code Tests for getEntityLocation
context("Tests for getEntityLocation")
test_that(paste("test getEntityLocation for: ", env$auth), {
barcode <- getEntityByName(con$coreApi, data$testPocoType, data$testPocoName, fullMetadata = FALSE, useVerbose = verbose)$entity[[1]]$Barcode
loc <- getEntityLocation(con$coreApi, data$testPocoType, barcode, fullMetadata = TRUE, useVerbose = verbose)
expect_equivalent(httr::status_code(loc$response), 200)
expect_match(loc$entity[[1]]$Barcode, data$testPocoLoc)
expect_true(!is.null(loc$entity[[1]]$`Id@odata.type`))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.