tests/testthat/test-getExperimentContainerContents.R

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

#' @author Scott Russell scott.russell@thermofisher.com
#' @author Natasha Mora natasha.mora@thermofisher.com
#' @description \code Tests for getExperimentContainerContents.

context("Tests for getExperimentContainerContents")

test_that(paste("test getExperimentContainerContents() on:", env$auth), {
  result <- getExperimentContainerContents(con$coreApi, data$experimentContainerBarcode, data$experimentContainerType, fullMetadata = TRUE, useVerbose = verbose)

  expect_equal(result$response$status_code, 200)
  expect_true(!is.null(result$entity[[1]]$`Id@odata.type`))

  case(
    grepl("[0-2]+\\.[0-9]+\\.[0-9]+", con$coreApi$semVer) ~ {
      expansion <- "REV_IMPL_CONTAINER_CELL"
    },
    grepl("[3-9]+\\.[0-9]+\\.[0-9]+", con$coreApi$semVer) ~ {
      expansion <- "CELLS"
    }
  )

  expect_gt(length(result$entity[[1]][[expansion]]), 0)
})