tests/testthat/test-simulate_double_censored_pmf.R

In seabbs/epinowcast: Flexible Hierarchical Nowcasting

test_that(
  "simulate_double_censored_pmf() returns valid PMF and is soft deprecated", {
  lifecycle::expect_deprecated(
    pmf <- simulate_double_censored_pmf(), # nolint
    "simulate_double_censored_pmf()"
  )
  expect_true(all(pmf >= 0))
  expect_equal(sum(pmf), 1, tolerance = 1e-5)
})

test_that(
  "simulate_double_censored_pmf() handles custom distributions and is soft
   deprecated", {
  lifecycle::expect_deprecated(
    pmf <- simulate_double_censored_pmf( # nolint
      fun_primary = rnorm, fun_dist = rexp, rate = 2,
      primary_args = list(mean = 0, sd = 1)
    ),
    "simulate_double_censored_pmf()"
  )
  expect_true(all(pmf >= 0))
  expect_equal(sum(pmf), 1, tolerance = 1e-5)
})

test_that(
  "simulate_double_censored_pmf() handles default values and is soft
   deprecated", {
  lifecycle::expect_deprecated(
    pmf <- simulate_double_censored_pmf(), # nolint
    "simulate_double_censored_pmf()"
  )
  expect_true(all(pmf >= 0))
  expect_equal(sum(pmf), 1, tolerance = 1e-5)
})