tests/testthat/test-function-hsCountInStr.R

test_that("hsCountInStr() works", {
  
  x <- "Nananananananana"
  
  expect_identical(hsCountInStr("a", x), 8L)
  expect_identical(hsCountInStr("na", x), 7L)
  expect_identical(hsCountInStr("nanana", x), 2L)
  expect_identical(hsCountInStr("(na){3}", x), 2L)
})
KWB-R/kwb.utils documentation built on April 1, 2024, 7:12 a.m.