tests/testthat/test_fast_nchar.R

In HughParsonage/dhhs: Handle Common Tasks at the Department of Health and Human Services ('DHHS'), Victoria, Australia

test_that("fast_nchar works", {
  expect_equal(fast_nchar("12345678"), 8L)
  expect_equal(fast_nchar(12345678L), 8L)
})

test_that("max_nchar works", {
  x <- character(0)
  expect_equal(max_nchar(x), 0L)
  x <- c("2021-05-1200:00:00 +00:00", "2021-06-1000:00:00 +00:00")
  expect_equal(max_nchar(x), max(nchar(x, type = "bytes")))
})

test_that("const_nchar works", {
  x <- character(0)
  expect_equal(const_nchar(x), 0L)
  expect_equal(const_nchar(""), 0L)
  x <- c("2021-11-16 21:51:45.0000000 +00:00", "2021-11-08 20:59:34.0000000 +00:00",
         "2021-11-09 21:04:15.0000000 +00:00")
  expect_equal(const_nchar(x), nchar(x[1]))
})