tests/testthat/test-updateMetadata.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
#' @description \code Tests for updateMetadata

context("Tests for updateMetadata")

test_that(paste("test updateMetadata() on: ", env$auth), {
  meta <- updateMetadata(con$coreApi, useVerbose = verbose)
  expect_equivalent(meta$response$status_code, 200, all = verbose)
})