/usr/share/doc/r-cran-rlang/tests/testthat/test-vec-coerce.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 | context("vec-coerce")
test_that("no method dispatch", {
as.logical.foo <- function(x) "wrong"
expect_identical(as_integer(structure(TRUE, class = "foo")), 1L)
as.list.foo <- function(x) "wrong"
expect_identical(as_list(structure(1:10, class = "foo")), as.list(1:10))
})
test_that("input is left intact", {
x <- structure(TRUE, class = "foo")
y <- as_integer(x)
expect_identical(x, structure(TRUE, class = "foo"))
})
test_that("as_list() zaps attributes", {
expect_identical(as_list(structure(list(), class = "foo")), list())
})
test_that("as_list() only coerces vector or dictionary types", {
expect_identical(as_list(1:3), list(1L, 2L, 3L))
expect_error(as_list(quote(symbol)), "a symbol to a list")
})
test_that("as_list() bypasses environment method and leaves input intact", {
as.list.foo <- function(x) "wrong"
x <- structure(child_env(NULL), class = "foo")
y <- as_list(x)
expect_is(x, "foo")
expect_identical(y, set_names(list(), character(0)))
})
test_that("as_integer() and as_logical() require integerish input", {
expect_error(as_integer(1.5), "a fractional double vector to an integer vector")
expect_error(as_logical(1.5), "a fractional double vector to a logical vector")
})
test_that("names are preserved", {
nms <- as.character(1:3)
x <- set_names(1:3, nms)
expect_identical(names(as_double(x)), nms)
expect_identical(names(as_list(x)), nms)
})
test_that("can convert strings (#138)", {
expect_identical(as_character("a"), "a")
expect_identical(as_list("a"), list("a"))
})
|