test_that("test inputs", { # cdm <- mockDrugUtilisation(connectionDetails) # indications <- list(headache = 378253, influenza = 4266367, rand = 12345678) # expect_no_error(cdm <- generateConceptCohortSet( # cdm, indications, "indications_cohort" # )) # # #check cdm reference in attributes # expect_true("indications_cohort" %in% names(cdm)) # expect_true( # !is.null(attr(cdm[["indications_cohort"]], "cdm_reference", exact = TRUE)) # ) })