tests/testthat/test-language.R

In hadley/lazyeval: Lazy (Non-Standard) Evaluation

context("language")

test_that("NULL is a valid language object", {
  expect_true(is_lang(NULL))
})

# coercion ----------------------------------------------------------------

test_that("as_name produces names", {
  expect_equal(as_name("a"), quote(a))
  expect_equal(as_name(quote(a)), quote(a))
  expect_equal(as_name(quote(a())), quote(a))
  expect_equal(as_name(~ a), quote(a))
  expect_equal(as_name(~ a()), quote(a))

  expect_error(as_name(c("a", "b")), "Can not coerce character vector of length > 1")
})

test_that("as_call produces calls", {
  expect_equal(as_call(quote(a)), quote(a()))
  expect_equal(as_call(quote(a())), quote(a()))
  expect_equal(as_call("a()"), quote(a()))
  expect_equal(as_call(~ a()), quote(a()))

  expect_error(as_call(c("a", "b")), "Can not coerce character vector of length > 1")
})