Error in `CDMConnector::cdm_from_con(db)`: cdm_name must be supplied!

result <- checkDrugSig(testData, byConcept = FALSE) %>% dplyr::collect()
expect_equal(result$sig, c("sig1", "sig2", "sig3", "sig1", NA))
expect_equal(result$n_records, c(1, 2, 1, 2, 1))
result <- checkDrugSig(testData, byConcept = TRUE) %>% dplyr::collect()
expect_equal(result$sig, c("sig1", "sig2", "sig3", "sig1", NA, "sig1", "sig2"))
expect_equal(result$n_records, c(1, 1, 1, 1, 1, 1, 1))

result <- checkVerbatimEndDate(testData, byConcept = FALSE) %>% dplyr::collect()
result <- checkVerbatimEndDate(testData, byConcept = TRUE) %>% dplyr::collect()

result <- summariseDrugExposureDuration(testData, "drug_exposure", byConcept = FALSE)
expect_equal(colnames(result), c("ingredient_concept_id", "ingredient", "n_records", "n_non_negative_days", "n_negative_days",
resultByconcept <- summariseDrugExposureDuration(testData, "drug_exposure", byConcept = TRUE)

result <- getDrugMissings(testData, "drug_exposure", byConcept = FALSE)
missingDaysSupply <- result %>% dplyr::filter(variable == "n_missing_days_supply")
result <- getDrugMissings(testData, "drug_exposure", byConcept = TRUE)
expect_equal(missingDaysSupply %>% dplyr::pull(n_records_missing_value), c(2, 2, 0))
expect_equal(missingDaysSupply %>% dplyr::pull(proportion_records_missing_value), c(1, 1, 0))

ingredient = c("acetaminophen", "acetaminophen", "acetaminophen", "hydrocodone",
"hydrocodone", "codeine", "acetaminophen", "codeine", "acetaminophenPlus",
sig = c(rep("verbatim instruction", 10), "", "verbatim instruction"),
amount_unit = c("mg", "mg", "mg", "mg"),
denominator_unit = c("mL", "mL", "mL", ""),
numerator_unit = c("mg", "mg", "mg", "mg"))
cdm <- mockDrugExposure(drug_exposure = drugExposure,
drugStrengthTable = "drug_strength") %>% dplyr::collect()
expect_equal(result$strength, c("1.0 mg/mL", "10.0 mg", "1.0 mg/mL",
expect_equal(result$n_records, c(3, 1, 1, 2, 1, 1, 1, 1, 1))
expect_equal(result$n_people, c(2, 1, 1, 1, 1, 1, 1, 1, 1))
expect_error(getIngredientPresence(cdm = testDb, drugRecordsTable = "test"))
expect_equal(colnames(result), c("ingredient_concept_id", "ingredient", "days_supply_specified", "quantity_specified",
expect_equal(result$n_records, c(4, 2, 1, 3, 1, 1))
expect_equal(result$n_people, c(2, 1, 1, 2, 1, 1))