tests/testthat/test-validate.R

In Rbearcat: University of Cincinnati Themes and Utilities for Econometrics and Data Science

test_that(".validate_df rejects non-data-frame input", {
  expect_error(.validate_df("not a df"), "must be a data frame")
})

test_that(".validate_df rejects empty data frame", {
  expect_error(.validate_df(data.frame()), "has 0 rows")
})

test_that(".validate_df checks column existence", {
  df <- data.frame(a = 1, b = 2)
  expect_error(.validate_df(df, "a", "c"), "not found")
  expect_silent(.validate_df(df, "a", "b"))
})