diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-06-09 11:17:31 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-06-09 11:17:31 (GMT) |
| commit | b2cdb696756be3886cea0a57a48a127eb1dfc2f7 (patch) | |
| tree | 089b94034365cfbe2d43ffc1f6e84758deec94f3 /tests | |
| parent | 3953f1d3559fd1e965529a563193b0232ddcaabb (diff) | |
| parent | 9858231309132643a953411c3305a979d329a248 (diff) | |
| download | tcl-b2cdb696756be3886cea0a57a48a127eb1dfc2f7.zip tcl-b2cdb696756be3886cea0a57a48a127eb1dfc2f7.tar.gz tcl-b2cdb696756be3886cea0a57a48a127eb1dfc2f7.tar.bz2 | |
merge trunk
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/string.test | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/tests/string.test b/tests/string.test index 10c1e5d..2428a92 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"} |