diff options
| author | dgp <dgp@users.sourceforge.net> | 2017-06-16 20:35:32 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2017-06-16 20:35:32 (GMT) |
| commit | ec41119a5a5226dc4ddff30c03770f0847cbd401 (patch) | |
| tree | d34dfc73043da0e40480733e0ee9afc332dda829 /tests | |
| parent | b2cdb696756be3886cea0a57a48a127eb1dfc2f7 (diff) | |
| parent | b4133af5ee0c655f627443f04d50f492eedc58fa (diff) | |
| download | tcl-ec41119a5a5226dc4ddff30c03770f0847cbd401.zip tcl-ec41119a5a5226dc4ddff30c03770f0847cbd401.tar.gz tcl-ec41119a5a5226dc4ddff30c03770f0847cbd401.tar.bz2 | |
merge trunk
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/string.test | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/tests/string.test b/tests/string.test index 2428a92..6d9588f 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} |