/usr/share/doc/r-cran-crayon/tests/testthat/test-utils.R is in r-cran-crayon 1.3.4-2.
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 | context("utils")
test_that("non_matching", {
chr <- "abc"
splits <- crayon:::re_table("", chr)
res.mx <- cbind(start=c(1L, 1L:3L), end=0L:3L, length=c(0L, 1L, 1L, 1L))
expect_equal(crayon:::non_matching(splits, chr, empty=TRUE)[[1L]], res.mx)
expect_equal(crayon:::non_matching(splits, chr)[[1L]], res.mx[-1L,])
})
|