inst/tinytest/test_concat_upper.R

In healthyAddress: Convert Addresses to Standard Inputs

library(tinytest)
concat_upper <- healthyAddress:::concat_upper

up0 <- function(...) toupper(paste(..., sep = ", "))
expect_equal(concat_upper("foo", "a"), up0("foo", "a"))
expect_equal(concat_upper(LETTERS, "a"), up0(LETTERS, "a"))
expect_equal(concat_upper(letters, "a"), up0(letters, "a"))
expect_equal(concat_upper(letters, letters), up0(letters, letters))
expect_equal(concat_upper(letters, "foo", "ab"), up0(letters, "foo", "ab"))
expect_equal(concat_upper(letters, letters, "ab"), up0(letters, letters, "ab"))
expect_equal(concat_upper(letters, letters, letters), up0(letters, letters, letters))
expect_equal(concat_upper(letters, letters, letters, letters), up0(letters, letters, letters, letters))