tests/testthat/acceptance_tests/test-createExperiment.R

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

#' @author Adam Wheeler adam.wheeler@thermofisher.com
#' @author Scott Russell scott.russell@thermofisher.com
#' @description Tests for Experiment creation.

context("Tests for createExperiment")

test_that(paste("test createExperiment() on semantic version:", con$coreApi$semVer), {
  expt <- createExperiment(con$coreApi,
    data$experimentType,
    data$experimentAssayType,
    data$experimentAssayBarcode,
    data$experimentProtocolType,
    data$experimentProtocolBarcode,
    body = NULL,
    fullMetadata = FALSE,
    useVerbose = verbose
  )

  expect_that(httr::http_status(expt$response)$reason, equals("Created"))
})


test_that(paste("createExperiment returns successful with fullMetadata on semantic version:", con$coreApi$semVer), {
  expt <- createExperiment(con$coreApi,
    data$experimentType,
    data$experimentAssayType,
    data$experimentAssayBarcode,
    data$experimentProtocolType,
    data$experimentProtocolBarcode,
    body = NULL,
    fullMetadata = TRUE,
    useVerbose = verbose
  )

  expect_true(!is.null(expt$entity$`Id@odata.type`))
})