tests/unitizer/env.R

In oshka: Recursive Quoted Language Expansion

library(oshka)

unitizer_sect("Env levels", {
  ## Key thing here is that we get the same answer from eval and evalr, we use
  ## complicated var name in the hopes it doesn't exist in global env since some
  ## of our looks here can cause lookups in globalenv

  aHrXaasBHJEJKdf <- "top-level"
  fun <- function(n) {
    aHrXaasBHJEJKdf <- "mid-level"
    local({
      aHrXaasBHJEJKdf <- "inner-level"
      if(n < 0) n <- max(sys.nframe() + n + 1, 0)
      eval.res <- try(eval(quote(aHrXaasBHJEJKdf), n))
      evalr.res <- try(eval(expand(quote(aHrXaasBHJEJKdf), n), n))
      c(
        eval=if(inherits(eval.res, "try-error")) NA else eval.res,
        evalr=if(inherits(evalr.res, "try-error")) NA else evalr.res
      )
    })
  }
  fun(-1)
  fun(-2)
  fun(-3)
  fun(-8)
  fun(-9)
})
unitizer_sect("Functions", {
  ## some stuff gets funky here with `all.equal` in the environment since the
  ## environment being compared is this one, so any objects that we add
  ## automatically breaks the tests
  imafun <- imafun2 <- function() NULL
  local({
    imafun <- TRUE
    oshka:::get_with_env("imafun", envir=environment())
  })
  local({
    imafun <- TRUE
    oshka:::get_with_env("imafun", envir=environment(), mode="function")
  })
  local({
    imafun2 <- quote(a + b)
    oshka:::get_with_env("imafun2", envir=environment(), mode="function")
  })
})
unitizer_sect("Errors", {
  oshka:::env_resolve(letters, new.env())
})