tests/testthat/acceptance_tests/test-isExperimentPublished.R

#' @author Natasha Mora natasha.mora@thermofisher.com
#' @description Tests for isExperimentPublished.

context("Tests for isExperimentPublished")

test_that(paste("test isExperimentPublished() on semantic version:", con$coreApi$semVer), {
  result <- isExperimentPublished(con$coreApi, data$experimentType, data$experimentBarcode, useVerbose = verbose)

  expect_type(result$status, "logical")
})
AmundsenJunior/pfsrsdk documentation built on July 18, 2019, 8:10 p.m.