add an additional test for very truncated random sampling

epinowcast · Sep 2, 2024 · 4439717 · 4439717
1 parent f9f877d
commit 4439717
Showing 1 changed file with 13 additions and 0 deletions.
diff --git a/tests/testthat/test-rprimarycensoreddist.R b/tests/testthat/test-rprimarycensoreddist.R
@@ -23,3 +23,16 @@ test_that("rprimarycensoreddist handles different primary distributions", {
 
   expect_true(all(samples >= 0 & samples < D))
 })
+
+test_that("rprimarycensoreddist handles very truncated distributions", {
+  n <- 1000
+  pwindow <- 0.1
+  D <- 1
+
+  samples <- rpcens(
+    n, rnorm, pwindow,
+    D = D, mean = 0.5, sd = 1
+  )
+
+  expect_true(all(samples >= 0 & samples < D))
+})