tests/testthat/test-updateEntityAttributes.R

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

#' @author Adam Wheeler adam.wheeler@thermofisher.com
#' @author Scott Russell scott.russell@thermofisher.com
#' @description \code{updateEntityAttributes} Tests for updateEntityAttributes.

context("Tests for updateEntityAttributes")

test_that(paste("test updateEntityAttributes() on: ", env$auth), {
  barcode <- getEntityByName(con$coreApi, data$testPocoUpdateType, data$testPocoUpdateName, FALSE, FALSE)$entity[[1]]$Barcode

  ue <- updateEntityAttributes(con$coreApi, data$testPocoUpdateType, barcode, data$testPocoUpdateAttrList, useVerbose = verbose)
  expect_equal(ue$entity[[names(data$testPocoUpdateAttrList)[1]]], data$testPocoUpdateAttrList[[names(data$testPocoUpdateAttrList)[1]]], all = verbose)
})