tests/testthat/test-warn_missing_strata.R

In serocalculator: Estimating Infection Rates from Serological Data

test_that("`test_missing_strata()` works", {
  expected_strata <- data.frame(Species = "banana", type = "orchid")

  warn.missing.strata(iris, expected_strata, dataname = "iris") %>%
    utils::capture.output() %>% # not sure this works as intended
    suppressMessages() %>%
    expect_error() %>%
    expect_warning()
})