From f802b23656443980a3fc9689ab0d3f2e2a864bca Mon Sep 17 00:00:00 2001
From: Hugo Gruson <10783929+Bisaloo@users.noreply.github.com>
Date: Fri, 12 Jul 2024 16:42:39 +0200
Subject: [PATCH] Add regression test

---
 tests/reg-tests-1e.R | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/tests/reg-tests-1e.R b/tests/reg-tests-1e.R
index 9c7790a829a..faab3692163 100644
--- 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"),
+  tools::toTitleCase("'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_)