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,])
})
Generated by dwww version 1.15 on Thu May 23 21:02:15 CEST 2024.