tests/testthat/test-surveys.r

In socialmixr: Social Mixing Matrices for Infectious Disease Modelling

test_that("get_citation() gives deprecation warning", {
  lifecycle::expect_deprecated(
    get_citation(polymod)
  )
})

test_that("surveys can be cited", {
  withr::local_options(lifecycle_verbosity = "quiet")
  expect_s3_class(get_citation(polymod), "bibentry")
})

test_that("missing surveys can't be cited", {
  withr::local_options(lifecycle_verbosity = "quiet")
  expect_error(get_citation("bogus"), "URL")
})

test_that("multiple DOIs cannot be loaded", {
  withr::local_options(lifecycle_verbosity = "quiet")
  expect_error(get_survey(c(
    "10.5281/zenodo.1095664", # nolint
    "10.5281/zenodo.1127693" # nolint
  )))
})