/usr/share/doc/r-cran-backports/tests/test_hasName.R

dwww Home | Show directory contents | Find package

source("helper/helper.R")

if (exists("hasName", envir = getNamespace("utils"))) {
  f = get("hasName", envir = getNamespace("utils"))
  expect_same = makeCompareFun(f, backports:::hasName)

  x = list(1, a = 12, bbb = 99)
  expect_same(x, "a")
  expect_same(x, "c")
  expect_same(x, "bbb")
  expect_same(x, "b")
}

Generated by dwww version 1.15 on Sat May 18 14:54:21 CEST 2024.