tests/testthat/test-isascii.R

In strs: 'Python' Style String Functions

test_that("strs_isascii works", {
  ascii_chars <- c(
    "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "a", "b",
    "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o",
    "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "A", "B",
    "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O",
    "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "!", "\"",
    "#", "$", "%", "&", "'", "(", ")", "*", "+", ",", "-", ".", "/",
    ":", ";", "<", "=", ">", "?", "@", "[", "\\", "]", "^", "_",
    "`", "{", "|", "}", "~", ""
  )
  expect_true(all(strs_isascii(ascii_chars)))
})