diff options
| author | dgp <dgp@users.sourceforge.net> | 2017-06-08 21:15:25 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2017-06-08 21:15:25 (GMT) |
| commit | 9858231309132643a953411c3305a979d329a248 (patch) | |
| tree | e13ed16b360eaf1e67674e6d31071cee64b87b68 /tests/string.test | |
| parent | 6e4aac3d59436016f5fe349d8e8c7e141640c425 (diff) | |
| parent | d6fff27296f668ac9cb89dda2fc6732634c19424 (diff) | |
| download | tcl-9858231309132643a953411c3305a979d329a248.zip tcl-9858231309132643a953411c3305a979d329a248.tar.gz tcl-9858231309132643a953411c3305a979d329a248.tar.bz2 | |
Another TclStringCatObjv optimization to delay/avoid string rep generation.
Diffstat (limited to 'tests/string.test')
| -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 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"} |