diff options
| author | dgp <dgp@users.sourceforge.net> | 2017-06-16 12:56:03 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2017-06-16 12:56:03 (GMT) |
| commit | 9ddb31d52221fb3db41becc2bd840658338f73e6 (patch) | |
| tree | 29e16803b99e27bb3b4a3dd5c5276f853df0e79e /tests/string.test | |
| parent | 6123ba004cf246d014231b6030560c8b9cae3934 (diff) | |
| download | tcl-9ddb31d52221fb3db41becc2bd840658338f73e6.zip tcl-9ddb31d52221fb3db41becc2bd840658338f73e6.tar.gz tcl-9ddb31d52221fb3db41becc2bd840658338f73e6.tar.bz2 | |
Extend cases where string rep generation can be prevented.
Diffstat (limited to 'tests/string.test')
| -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 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} |