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") })
Generated by dwww version 1.15 on Wed Jun 26 02:35:39 CEST 2024.