/usr/share/doc/r-cran-rlang/tests/testthat/test-node.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 91 | context("node")
test_that("node() creates a pairlist node", {
x <- new_node("foo", "bar")
expect_is(x, "pairlist")
expect_identical(node_car(x), "foo")
expect_identical(node_cdr(x), "bar")
})
test_that("node getters and pokers work", {
A <- as.pairlist(c(a = "a", b = "b"))
B <- as.pairlist(c(A = "A", B = "B"))
x <- pairlist(foo = A, bar = B, baz = "baz")
expect_identical(node_car(x), A)
expect_identical(node_cdr(x), pairlist(bar = B, baz = "baz"))
expect_identical(node_caar(x), "a")
expect_identical(node_cadr(x), B)
expect_identical(node_cdar(x), pairlist(b = "b"))
expect_identical(node_cddr(x), pairlist(baz = "baz"))
expect_identical(node_tag(x), sym("foo"))
node_poke_car(x, B)
expect_identical(node_car(x), B)
node_poke_cdr(x, pairlist(foo = A))
expect_identical(node_cdr(x), pairlist(foo = A))
node_poke_cdar(x, "cdar")
expect_identical(node_cdar(x), "cdar")
node_poke_caar(x, "caar")
expect_identical(node_caar(x), "caar")
node_poke_cadr(x, "cadr")
expect_identical(node_cadr(x), "cadr")
node_poke_cddr(x, "cddr")
expect_identical(node_cddr(x), "cddr")
node_poke_tag(x, sym("tag"))
expect_identical(node_tag(x), sym("tag"))
})
test_that("node_tree_clone() clones all nodes", {
x <- pairlist(1, pairlist(2))
clone <- node_tree_clone(x)
# Outer vector
expect_false(sxp_address(x) == sxp_address(clone))
# Outer node list
expect_true(sxp_address(node_car(x)) == sxp_address(node_car(clone)))
cdr <- node_cdr(x)
clone_cdr <- node_cdr(clone)
expect_false(sxp_address(cdr) == sxp_address(clone_cdr))
# Inner node list
cadr <- node_car(cdr)
clone_cadr <- node_car(clone_cdr)
expect_false(sxp_address(cadr) == sxp_address(clone_cadr))
# Inner vector
caadr <- node_car(cadr)
clone_caadr <- node_car(clone_cadr)
expect_true(sxp_address(caadr) == sxp_address(clone_caadr))
})
test_that("as_pairlist() converts to pairlist", {
expect_identical(as_pairlist(letters), as.pairlist(letters))
expect_error(as_pairlist(quote(foo)), "Can't convert a symbol to a pairlist node")
expect_identical(as_pairlist(NULL), NULL)
x <- pairlist(1, 2)
expect_identical(as_pairlist(x), x)
})
test_that("pairlist predicates detect pairlists", {
node <- new_node(NULL)
call <- quote(foo(bar))
expect_true(is_pairlist(node))
expect_true(is_node(node))
expect_true(is_node(call))
expect_true(is_node_list(node))
expect_true(is_node_list(NULL))
})
|