tests/testthat/test-independent_test_rpwexpinvRcpp.R

In keaven/simtrial: Clinical Trial Simulation

test_that("rpwexpinvRcpp handles 0 fail_rate for final period", {
  # 0 failure rate for last period
  s <- simtrial::rpwexpinvRcpp(n=100,
                        fail_rate=tibble(duration=c(0, 2),rate=c(5, 0)))
  # expect all failure times = Inf if length of first time period is 0
  testthat::expect_equal(min(s),Inf)
})

testthat::test_that("rpwexpinvRcpp handles 0 fail rate properly for one period",{
  # 0 failure rate
  s <- simtrial::rpwexpinvRcpp(n=100,
              fail_rate=tibble(duration=c(1),rate=c(0)))
  # expect Inf fail time
  testthat::expect_equal(mean(is.infinite(s)),1)
})


testthat::test_that("rpwexpinvRcpp handles 0 fail rate properly for multiple periods",{
  # 0 failure rate for 1st period (with duration of 1 time unit)
  s <- simtrial::rpwexpinvRcpp(n=100,
              fail_rate=tibble(duration=c(1, 2),rate=c(0, 5)))
  # expect all failure times > = 1 (no events in 0 failure rate period)
  testthat::expect_equal(mean(s>=1),1)
})