inst/tinytest/strings/test-stri_locate_ith_internal.R

In tinycodet: Functions to Help in your Coding Etiquette

# set-up ===
enumerate <- 0 # to count number of tests performed using iterations in loops
loops <- 0 # to count number of loops

errorfun <- function(tt) {
  if(isTRUE(tt)) print(tt)
  if(isFALSE(tt)) stop(print(tt))
}

i <- sample(c(-50:-1, 1:50), 1000, TRUE)
  
n.matches <- rep.int(0L, length(i))

expected <- cbind(start = NA_integer_, end = NA_integer_)
expect_equal(
  stri_locate_ith("string", i = 1L, fixed = "a"),
  expected
)
expect_equal(
  stri_locate_ith("string", i = -1L, fixed = "a"),
  expected
)

expect_equal(
  stri_locate_ith(c("string", "string"), i = c(1L, -1L), fixed = "a"),
  rbind(expected, expected)
)