Extend cases where string rep generation can be prevented.

1 files changed, 15 insertions, 0 deletions

diff --git a/tests/string.test b/tests/string.test
index 9c43f29..7b02928 100644
--- a/tests/string.test
+++ b/tests/string.test
@@ -2024,6 +2024,21 @@ test string-29.13 {string cat, efficiency} -body {
     tcl::unsupported::representation [string cat \
 	[encoding convertto utf-8 {}] [encoding convertto utf-8 {}] [list x]]
 } -match glob -result {*, string representation "x"}
+test string-29.14 {string cat, efficiency} -setup {
+    set e [encoding convertto utf-8 {}]
+} -cleanup {
+    unset e
+} -body {
+    tcl::unsupported::representation [string cat $e $e [list x]]
+} -match glob -result {*no string representation}
+test string-29.15 {string cat, efficiency} -setup {
+    set e [encoding convertto utf-8 {}]
+    set f [encoding convertto utf-8 {}]
+} -cleanup {
+    unset e f
+} -body {
+    tcl::unsupported::representation [string cat $e $f $e $f [list x]]
+} -match glob -result {*no string representation}