tests/testthat/test-addCohortSurvival-validation.R

In OdysseusSurvivalModule: Cohort-Based Single-Event Survival Utilities

test_that("addCohortSurvival validates outcomeDateVariable", {
  conn <- structure(list(), dbms = "sql server")

  expect_error(
    OdysseusSurvivalModule:::addCohortSurvival(
      connection = conn,
      cdmDatabaseSchema = "cdm",
      cohortDatabaseSchema = "cohort",
      targetCohortTable = "cohort",
      targetCohortId = 1,
      outcomeCohortTable = "cohort",
      outcomeDateVariable = "bad_col"
    ),
    "outcomeDateVariable"
  )
})


test_that("addCohortSurvival validates chunkSize", {
  conn <- structure(list(), dbms = "sql server")

  expect_error(
    OdysseusSurvivalModule:::addCohortSurvival(
      connection = conn,
      cdmDatabaseSchema = "cdm",
      cohortDatabaseSchema = "cohort",
      targetCohortTable = "cohort",
      targetCohortId = 1,
      outcomeCohortTable = "cohort",
      chunkSize = -10
    ),
    "chunkSize"
  )
})


test_that("addCohortSurvival validates followUpDays", {
  conn <- structure(list(), dbms = "sql server")

  expect_error(
    OdysseusSurvivalModule:::addCohortSurvival(
      connection = conn,
      cdmDatabaseSchema = "cdm",
      cohortDatabaseSchema = "cohort",
      targetCohortTable = "cohort",
      targetCohortId = 1,
      outcomeCohortTable = "cohort",
      followUpDays = -1
    ),
    "followUpDays"
  )
})