Update tests/testthat/test-utils_get_data.R

Co-authored-by: Milan Malfait <[email protected]>
SAFEHR-data · Sep 6, 2024 · 5e0902c · 5e0902c
1 parent 3ee7c2a
commit 5e0902c
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/tests/testthat/test-utils_get_data.R b/tests/testthat/test-utils_get_data.R
@@ -75,8 +75,8 @@ test_that("Test low frequency stats replacement for monthly counts", {
   )
   replacement <- as.double(Sys.getenv("LOW_FREQUENCY_REPLACEMENT"))
   results <- .manage_low_frequency(mock_monthly_counts)
-  expect_true(nrow(results) == 4)
-  expect_true(nrow(dplyr::filter(results, person_count == 0)) == 0)
+  expect_equal(nrow(results), 4)
+  expect_equal(sum(results$person_count == 0), 0)
   expect_true(nrow(dplyr::filter(results, person_count == 1)) == 0)
   expect_true(nrow(dplyr::filter(results, person_count == replacement)) == 2)
   expect_true(nrow(dplyr::filter(results, person_count == 1000)) == 2)