tests/testthat/test_input_checks.R

In univariateML: Maximum Likelihood Estimation for Univariate Densities

# Generating automatic tests for input checks.

for (dens in densities) {
  eval(call("context", paste0("Input check: ", dens)))
  eval(call("expect_error", call(dens, "x")))
  eval(call("expect_error", call(dens, lm)))
  eval(call("expect_error", call(dens, replicate(3, 1:3))))
  eval(call("expect_error", call(dens, NA)))
}

forms_rhs <- c("x", "na.rm", "...")
for (dens in densities) {
  eval(call("context", paste0("Formals: ", dens)))
  forms_lhs <- names(eval(call("formals", dens)))
  expect_equal(forms_lhs, forms_rhs)
}