tests/testthat/test-dots.R

context("test-dots")

capture_dots <- function(..., auto_name = TRUE) dots(auto_name = auto_name)

test_that("errors with bad inputs", {
  expect_error(dots(), "No ... found")
  expect_error(dots(1), "not an environment")
})

test_that("no dots yields empty list", {
  expect_equal(capture_dots(), list())
})

test_that("captures names if present", {
  expect_named(capture_dots(x = 1, y = 2), c("x", "y"))
})

test_that("constructs names if absent", {
  expect_named(capture_dots(1, 2), c("..1", "..2"))
})

test_that("unless auto_name = FALSE", {
  expect_named(capture_dots(x = 1, 2, auto_name = FALSE), c("x", NA))
})

Try the ellipsis package in your browser

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

ellipsis documentation built on April 29, 2021, 5:06 p.m.