tests/testthat/test-methods.R

context("methods")

expect_ellipsis <- function(name, method) {
  sym <- as.name(name)
  eval(bquote({
    .(sym) <- method
    expect_true("..." %in% names(formals(.(sym))))
  }))
}

test_that("all methods have ellipsis", {
  symbols <- ls(env = asNamespace("DBI"))
  objects <- mget(symbols, env = asNamespace("DBI"), mode = "function", ifnotfound = rep(list(NULL), length(symbols)))
  is_method <- vapply(objects, inherits, "standardGeneric", FUN.VALUE = logical(1L))
  methods <- objects[is_method]
  Map(expect_ellipsis, names(methods), methods)
})

Try the DBI package in your browser

Any scripts or data that you put into this service are public.

DBI documentation built on June 18, 2022, 9:06 a.m.