tests/testthat/test-GetPostDeleteDefinition.R

In OHDSI/ROhdsiWebApi: Interacting With an OHDSI WebApi Instance

# # Tests for the GetPostDeleteDefinition.R file
# 
# with_mock_dir("mocks/GetPostDeleteDefinition", {
# 
#   test_that("Get Post and Delete functions work for cohorts", {
# 
#     # Get the test cohort definition
#     def <- getDefinition(idCohort, baseUrl, "cohort")
#     expect_type(def, "list")
#     
#     # Post the cohort definition
#     response <- postDefinition(baseUrl, "temporary test cohort", "cohort", def)
#     expect_s3_class(response, "data.frame")
#     expect_equal(nrow(response), 1)
#     expect_equal(response$name, "temporary test cohort")
#     # Delete the cohortran
#     expect_output(deleteDefinition(response$id, baseUrl, "cohort"), "Success")
#     
#   })
# })
# 
# # Mock tests appear to fail for updates
# test_that("Update definition", {
#   def <- getDefinition(idCohort, baseUrl, "cohort")
#   response <- postDefinition(baseUrl, stringi::stri_rand_strings(1, 10), "cohort", def)
# 
#   updef <- getDefinition(response$id, baseUrl, "cohort")
#   updef$name <- stringi::stri_rand_strings(1, 10)
#   expect_output(updateDefinition(updef, baseUrl, "cohort"), "Success")
# 
#   def <- getDefinition(response$id, baseUrl, "cohort")
#   expect_equal(def$name, updef$name)
# 
#   deleteDefinition(response$id, baseUrl, "cohort")
#   # Error updating entry without valid id
#   expect_error(updateDefinition(updef, baseUrl, "cohort"))
# 
# })