tests/testthat/test-createExperimentSample.R

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

#' @author Adam Wheeler adam.wheeler@thermofisher.com
#' @description Tests for Experiment creation.
#'
context("Tests for createExperimentSample")

test_that(paste("test createExperimentSample() on: ", env$auth), {
  samp <- createExperimentSample(
    con$coreApi,
    data$experimentType,
    data$experimentBarcode,
    data$sampleLotBarcode,
    fullMetadata = TRUE
  )

  expect_that(httr::http_status(samp$response)$reason, equals("Created"))
  expect_true(!is.null(samp$entity$`Id@odata.type`))
})