tests/test_get0.R

In mllg/backports: Reimplementations of Functions Introduced Since R-3.0.0

source("helper/helper.R")

if (exists("get0", envir = baseenv())) {
  f = get("get0", envir = baseenv())
  expect_same = makeCompareFun(f, backports:::get0)

  foo = 1
  ee = new.env()
  ee$bar = 1
  ee$foobar = function(x) x^2

  expect_same(character(0), ifnotfound = 1)
  expect_same(NA_character_, ifnotfound = 1)
  expect_same(factor("a"), ifnotfound = 1)

  expect_same("bar")
  expect_same("bar", ifnotfound = 42)
  expect_same("foo")
  expect_same("foo", ifnotfound = 42)
  expect_same(c("foo", "bar", "iris"), ifnotfound = 42)
  expect_same(c("bar", "foo", "iris"), ifnotfound = 42)
  expect_same(c("iris", "foo", "bar"), ifnotfound = 42)
  expect_same("bar", envir = ee)
  expect_same("bar", envir = ee, mode = "function")
  expect_same("bar", envir = ee, mode = "function")
  expect_same("foobar", envir = ee, mode = "function")
}