glom: add test for #180

ncss-tech · Jun 1, 2024 · a2999ea · a2999ea
1 parent f25246d
commit a2999ea
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/tests/testthat/test-glom.R b/tests/testthat/test-glom.R
@@ -217,5 +217,11 @@ test_that("glom vectorization", {
 
   # truncate twice, initially with drop=FALSE
   expect_equal(length(trunc(trunc(sp1, 75, 100, drop = FALSE), 90, 100)), 4)
+
+  # no horizons in glom interval, with missing profiles dropped
+  expect_equal(length(trunc(sp1, 250, 300)), 0)
+
+  # no horizons in glom interval, with missing profiles filled
+  expect_equal(length(trunc(sp1, 250, 300, drop = FALSE)), 0)
 })