tests/testthat/test-utils.R

In r-pkgs/crayon: Colored Terminal Output

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, ])
})