tests/testthat/test-getDoseUnit.R

test_that("get dose unit", {

  # none in our mock
  cdm <- mockVocabRef()
  getDoseUnit(cdm)

  # expected error
  expect_error(getDoseUnit("a"))


})

Try the CodelistGenerator package in your browser

Any scripts or data that you put into this service are public.

CodelistGenerator documentation built on Oct. 17, 2024, 5:09 p.m.