Add regression test

r-devel · Jul 12, 2024 · b7467c0 · b7467c0
1 parent 0d5f3ac
commit b7467c0
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/tests/reg-tests-1e.R b/tests/reg-tests-1e.R
@@ -1399,6 +1399,11 @@ ch0 <- character(0L)
 stopifnot(identical(ch0, tools::toTitleCase(ch0)))
 ## was list() in R <= 4.4.0
 
+## toTitleCase("'PROTECTED',")
+stopifnot(identical(
+  tools::toTitleCase("'SPSS', 'Stata' and 'R' are statistical software"),
+  "'SPSS', 'Stata' and 'R' are Statistical Software"
+))
 
 ## PR#18745 (+ PR#18702)   format.data.frame() -> as.data.frame.list()
 x <- setNames(data.frame(TRUE), NA_character_)