tests/testthat/acceptance_tests/test-setExperimentSampleAssayFileData.R

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

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

context("Tests for setExperimentSampleAssayFileData")

filePath <- tempfile(fileext = ".csv")
write.csv(x = runif(n = 1000), file = filePath)

test_that(paste("test setExperimentSampleAssayFileData() on semantic version:", con$coreApi$semVer), {
  result <- setExperimentSampleAssayFileData(con$coreApi,
    data$experimentFileAssayType,
    data$experimentSampleBarcodeWithFileAttr,
    data$fileAttrName,
    filePath,
    useVerbose = verbose
  )

  expect_equal(result$response$status_code, 204)
  expect_null(result$entity)
})

teardown({
  unlink(filePath)
})