tests/testthat/test-getContainerCellIds.R

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

#' @author Scott Russell scott.russell@thermofisher.com
#' @description \code Tests for getContainerCellIds.

context("Tests for getContainerCellIds")

test_that(paste("test getContainerCellIds() on:", env$auth), {
  result <- getContainerCellIds(con$coreApi, data$containerBarcode, containerType = data$containerType, useVerbose = verbose)

  expect_equal(result$response$status_code, 200)

  expect_gt(unlist(length(result$entity)), 0)
})