summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2017-06-08 19:35:05 (GMT)
committerdgp <dgp@users.sourceforge.net>2017-06-08 19:35:05 (GMT)
commit5640f7a50784a038ff4a2d97550a103286352a10 (patch)
treeb81a09f1168df8bdf621abd3d66224ed6946f7f1 /tests
parent15c693307b87a299e50ff1d544b412488dee9485 (diff)
downloadtcl-5640f7a50784a038ff4a2d97550a103286352a10.zip
tcl-5640f7a50784a038ff4a2d97550a103286352a10.tar.gz
tcl-5640f7a50784a038ff4a2d97550a103286352a10.tar.bz2
Tests for string rep generation suppression
Diffstat (limited to 'tests')
-rw-r--r--tests/string.test30
1 files changed, 30 insertions, 0 deletions
diff --git a/tests/string.test b/tests/string.test
index fa7f8fb..9c43f29 100644
--- a/tests/string.test
+++ b/tests/string.test
@@ -1994,6 +1994,36 @@ test string-29.4 {string cat, many args} {
set r2 [string compare $xx [eval "string cat $vvs"]]
list $r1 $r2
} {0 0}
+test string-29.5 {string cat, efficiency} -body {
+ tcl::unsupported::representation [string cat [list x] [list]]
+} -match glob -result {*no string representation}
+test string-29.6 {string cat, efficiency} -body {
+ tcl::unsupported::representation [string cat [list] [list x]]
+} -match glob -result {*no string representation}
+test string-29.7 {string cat, efficiency} -body {
+ tcl::unsupported::representation [string cat [list x] [list] [list]]
+} -match glob -result {*no string representation}
+test string-29.8 {string cat, efficiency} -body {
+ tcl::unsupported::representation [string cat [list] [list x] [list]]
+} -match glob -result {*no string representation}
+test string-29.9 {string cat, efficiency} -body {
+ tcl::unsupported::representation [string cat [list] [list] [list x]]
+} -match glob -result {*no string representation}
+test string-29.10 {string cat, efficiency} -body {
+ tcl::unsupported::representation [string cat [list x] [list x]]
+} -match glob -result {*, string representation "xx"}
+test string-29.11 {string cat, efficiency} -body {
+ tcl::unsupported::representation \
+ [string cat [list x] [encoding convertto utf-8 {}]]
+} -match glob -result {*no string representation}
+test string-29.12 {string cat, efficiency} -body {
+ tcl::unsupported::representation \
+ [string cat [encoding convertto utf-8 {}] [list x]]
+} -match glob -result {*, string representation "x"}
+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"}