inst/unitTests/test_checkDrugSynonym.R

test_checkDrugSynonym <- function() {

  obs <- tryCatch(checkDrugSynonym(drugVector = NULL), error=conditionMessage)
  checkIdentical("input drugVector must be a string vector", obs)

}
fcarazo/drughelper documentation built on April 4, 2022, 1:49 p.m.