tests/testthat/acceptance_tests/test-getAttachedFile.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 attachFile.
#'
context("Tests for attachFile()")

barcode <- getEntityByName(con$coreApi, data$testPocoType, data$testPocoName, FALSE, useVerbose = FALSE)$entity[[1]]$Barcode
filePath <- tempfile(fileext = ".csv")
write.csv(x = runif(n = 1000), file = filePath)

test_that(paste("test attachFile() OData call on semantic version:", con$coreApi$semVer), {
  attachedFile <- attachFile(
    coreApi = con$coreApi,
    entityType = data$testPocoType,
    barcode = barcode,
    filePath = filePath,
    targetAttributeName = data$testPocoFileAttrName
  )

  expect_equivalent(attachedFile$response$status_code, 204, all = verbose)
  expect_null(attachedFile$response$entity)
})

test_that(paste("test attachFile() CoreSDK call on semantic version:", con$coreApi$semVer), {
  attachedFile <- attachFile(
    coreApi = con$coreApi,
    entityType = data$testPocoType,
    barcode = barcode,
    filePath = filePath
  )

  expect_equivalent(attachedFile$response$status_code, 200, all = verbose)
  expect_true(attachedFile$entity$response$success)
})