inst/tinytest/test_toupper_basic.R

library(tinytest)
z <- c(intToUtf8(1:128), NA, "a", "", strrep(letters, 32000))
expect_equal(toupper_basic(z), toupper(z))
expect_warning(toupper_basic(strrep("a", 33e3)))

Try the healthyAddress package in your browser

Any scripts or data that you put into this service are public.

healthyAddress documentation built on April 12, 2025, 1:28 a.m.