test zzz columns are not in result

ropensci · Nov 1, 2024 · 0c05181 · 0c05181
1 parent 36b2c80
commit 0c05181
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 0 deletions.
diff --git a/tests/testthat/test-direction-to-leader.R b/tests/testthat/test-direction-to-leader.R
@@ -93,6 +93,14 @@ test_that('column added to the result DT is a double', {
   )
 })
 
+test_that('zzz columns not added to the result', {
+  zzz_cols <- c('has_leader', 'zzz_leader_xcol', 'zzz_leader_ycol')
+
+  expect_false(
+    any(zzz_cols %in% colnames(direction_to_leader(DT, coords = coords)))
+  )
+})
+
 test_that('returns a data.table', {
   expect_s3_class(direction_to_leader(DT, coords = coords, group = group),
                   'data.table')

diff --git a/tests/testthat/test-distance-to-leader.R b/tests/testthat/test-distance-to-leader.R
@@ -94,6 +94,14 @@ test_that('column added to the result DT is a double', {
   )
 })
 
+test_that('zzz columns not added to the result', {
+  zzz_cols <- c('has_leader', 'zzz_N_by_group')
+
+  expect_false(
+    any(zzz_cols %in% colnames(direction_to_leader(DT, coords = coords)))
+  )
+})
+
 test_that('returns a data.table', {
   expect_s3_class(distance_to_leader(DT, coords = coords, group = group),
                   'data.table')