tests/testthat/test-tx_ml.R

In tidyndr: Analysis of the Nigeria National Data Repository (NDR)

test_that("tx_ml subsets only inactive clients within a period", {
  expect_identical(
    tx_ml(
      new_data = ndr_example,
      from = lubridate::ymd("2020-10-01"),
      to = lubridate::ymd("2021-01-31")
    ),
    ndr_example %>%
      dplyr::filter(dplyr::between(
        date_lost,
        lubridate::as_date("2020-10-01"),
        lubridate::as_date("2021-01-31")
      ))
  )
})