/usr/share/doc/r-cran-rlang/tests/testthat/test-compat.R is in r-cran-rlang 0.2.0-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 | context("compat")
test_that("names() dispatches on environment", {
env <- child_env(NULL, foo = "foo", bar = "bar")
expect_identical(sort(names(env)), c("bar", "foo"))
})
test_that("lazy objects are converted to tidy quotes", {
env <- child_env(get_env())
lazy <- structure(list(expr = quote(foo(bar)), env = env), class = "lazy")
expect_identical(compat_lazy(lazy), new_quosure(quote(foo(bar)), env))
lazy_str <- "foo(bar)"
expect_identical(compat_lazy(lazy_str), quo(foo(bar)))
lazy_lang <- quote(foo(bar))
expect_identical(compat_lazy(lazy_lang), quo(foo(bar)))
lazy_sym <- quote(foo)
expect_identical(compat_lazy(lazy_sym), quo(foo))
})
test_that("lazy_dots objects are converted to tidy quotes", {
env <- child_env(get_env())
lazy_dots <- structure(class = "lazy_dots", list(
lazy = structure(list(expr = quote(foo(bar)), env = env), class = "lazy"),
lazy_lang = quote(foo(bar))
))
expected <- list(
lazy = new_quosure(quote(foo(bar)), env),
lazy_lang = quo(foo(bar)),
quo(foo(bar))
)
expect_identical(compat_lazy_dots(lazy_dots, get_env(), "foo(bar)"), expected)
})
test_that("unnamed lazy_dots are given default names", {
lazy_dots <- structure(class = "lazy_dots", list(
"foo(baz)",
quote(foo(bar))
))
expected <- list(
`foo(baz)` = quo(foo(baz)),
`foo(bar)` = quo(foo(bar)),
foobarbaz = quo(foo(barbaz))
)
dots <- compat_lazy_dots(lazy_dots, get_env(), foobarbaz = "foo(barbaz)", .named = TRUE)
expect_identical(dots, expected)
})
test_that("compat_lazy() handles missing arguments", {
expect_identical(compat_lazy(), quo())
})
test_that("compat_lazy_dots() takes lazy objects", {
lazy <- set_attrs(list(expr = quote(foo), env = empty_env()), class = "lazy")
expect_identical(compat_lazy_dots(lazy), named_list(new_quosure(quote(foo), empty_env())))
})
test_that("compat_lazy_dots() takes symbolic objects", {
expect_identical(compat_lazy_dots(quote(foo), empty_env()), named_list(new_quosure(quote(foo), empty_env())))
expect_identical(compat_lazy_dots(quote(foo(bar)), empty_env()), named_list(new_quosure(quote(foo(bar)), empty_env())))
})
test_that("compat_lazy() demotes character vectors to strings", {
expect_identical(compat_lazy_dots(NULL, get_env(), c("foo", "bar")), named_list(as_quosure(~foo)))
})
test_that("compat_lazy() handles numeric vectors", {
expect_identical(compat_lazy_dots(NULL, get_env(), NA_real_), named_list(set_env(quo(NA_real_))))
expect_warning(expect_identical(compat_lazy_dots(NULL, get_env(), 1:3), named_list(set_env(quo(1L)))), "Truncating vector")
})
test_that("compat_lazy() handles bare formulas", {
expect_identical(compat_lazy(~foo), quo(foo))
expect_identical(compat_lazy_dots(~foo), named_list(quo(foo)))
})
test_that("trimws() trims", {
x <- " foo. "
expect_identical(trimws(x), "foo.")
expect_identical(trimws(x, "l"), "foo. ")
expect_identical(trimws(x, "r"), " foo.")
})
|