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)))
HughParsonage/healthyAddress documentation built on Jan. 11, 2025, 12:11 a.m.