tests/testthat/test-f-unwrap.R

In lazyeval: Lazy (Non-Standard) Evaluation

context("f_unwrap")

test_that("f_unwrap substitutes values", {
  n <- 100
  f1 <- f_unwrap(~ x + n)
  f2 <- f_new(quote(x + 100), env = parent.env(environment()))

  expect_identical(f1, f2)
})

test_that("f_unwrap substitutes even in globalenv", {
  .GlobalEnv$`__1` <- 1
  expect_equal(f_rhs(f_unwrap(f_new(quote(`__1`), env = globalenv()))), 1)
})

test_that("doesn't go past empty env", {
  f <- f_new(quote(x == y), env = emptyenv())
  expect_equal(f_unwrap(f), f)
})