tests/testthat/test-data-survey.R

In mrc-ide/naomi: Naomi Model for Subnational HIV Estimates

test_that("cmc_date() returns correct value", {
  expect_equal(cmc_date(as.Date("1987-02-11", format = "%Y-%m-%d")), 1046)
})

test_that("cmc_date() returns an error if provided non-Date argument", {
  expect_error(cmc_date("foo"))
  expect_error(cmc_date(1046))
  expect_error(cmc_date("1987-02-11"))
})