tests/testthat/test-createExperimentContainer.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
#' @author Natasha Mora natasha.mora@thermofisher.com
#' @description Tests for Experiment creation.
#'
context("Tests for createExperimentContainer")

test_that(paste("test createExperimentContainer() on a single well container in:", env$auth), {
  ec <- createExperimentContainer(con$coreApi,
    data$experimentType,
    data$experimentBarcodeUnpublishedExperiment,
    data$singleWellContainerBarcode,
    body = NULL,
    fullMetadata = TRUE,
    useVerbose = FALSE
  )

  expect_that(httr::http_status(ec$response)$category, equals("Success"))
  expect_true(!is.null(ec$entity$`Id@odata.type`))
})

test_that(paste("test createExperimentContainer() on a multi well container in:", env$auth), {
  # add multi well container

  ec <- createExperimentContainer(con$coreApi,
    data$experimentType,
    data$experimentBarcodeUnpublishedExperiment,
    data$multiWellContainerBarcode,
    body = NULL,
    fullMetadata = TRUE,
    useVerbose = FALSE
  )

  expect_that(httr::http_status(ec$response)$category, equals("Success"))
  expect_true(!is.null(ec$entity$`Id@odata.type`))
})