tests/testthat/test-function-stringStartsWith.R

test_that("stringStartsWith() works", {

  expect_identical(
    stringStartsWith(c("abc", "Kabeljau", "Arabella"), "ab"),
    c(TRUE, FALSE, FALSE)
  )
  
  expect_identical(
    stringStartsWith(c("abc", "Kabeljau", "Arabella"), "A"),
    c(FALSE, FALSE, TRUE)
  )
})
KWB-R/kwb.utils documentation built on April 1, 2024, 7:12 a.m.