dwww Home | Show directory contents | Find package

source("helper/helper.R")

wb = function(...) backports:::...names()

if (exists("...names", envir = baseenv()) && getRversion() > "4.1.2") {
  f = get("...names", envir = baseenv())
  wf = function(...) f()
  expect_same = makeCompareFun(wf, wb)

  expect_same(1, 2)
  expect_same(a = 1)
  expect_same(1, b = 2)
  expect_same()

  expect_identical(wb(a = 1, 2), c("a", ""))
}

expect_identical(wb(a = 1, b = 2), c("a", "b"))

Generated by dwww version 1.15 on Wed Jun 26 02:31:15 CEST 2024.