tests/testthat/test-independent_test_rpw_enroll.R

In Merck/simtrial: Clinical Trial Simulation

test_that("rpwexp_enroll handles 0 enrollment rate properly for 1st enrollment period (with duration of 1 time unit)", {
  n <- 50
  enroll_rate <- data.frame(duration = c(1, 2), rate = c(0, 5))
  x <- rpwexp_enroll(n = n, enroll_rate = enroll_rate)

  expect_gt(x[1], enroll_rate$duration[1])
})

test_that("rpwexp_enroll handles 0 enrollment rate properly for final enrollment period", {
  set.seed(123)
  n <- 50
  enroll_rate <- data.frame(duration = c(1, 2), rate = c(10, 0))
  expect_error(rpwexp_enroll(n = n, enroll_rate = enroll_rate))

  n <- 5
  enroll_rate <- data.frame(duration = 1, rate = 0)
  expect_error(rpwexp_enroll(n = n, enroll_rate = enroll_rate))
})