diff options
| author | sebres <sebres@users.sourceforge.net> | 2018-07-26 18:15:17 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2018-07-26 18:15:17 (GMT) |
| commit | 304b56917085547380c76f70b6adcb5a92e5cba6 (patch) | |
| tree | c9adda3aa56146009d6da43abaddce24391df62d | |
| parent | 76334501285b373e97461a7a8215bdf961ddd384 (diff) | |
| parent | 2133e40e589348c5df1b721c1d0e0ac2f2385505 (diff) | |
| download | tcl-304b56917085547380c76f70b6adcb5a92e5cba6.zip tcl-304b56917085547380c76f70b6adcb5a92e5cba6.tar.gz tcl-304b56917085547380c76f70b6adcb5a92e5cba6.tar.bz2 | |
merge test cases from 8.6
| -rw-r--r-- | tests/string.test | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/tests/string.test b/tests/string.test index 3aada06..772415c 100644 --- a/tests/string.test +++ b/tests/string.test @@ -2306,9 +2306,12 @@ test string-29.15.$noComp {string cat, efficiency} -setup { tcl::unsupported::representation [run {string cat $e $f $e $f [list x]}] } -match glob -result {*no string representation} } -test string-30.1.$noComp {[Bug ba921a8d98]} { +test string-30.1.1.$noComp {[Bug ba921a8d98]: string cat} { run {string cat [set data [binary format a* hello]] [encoding convertto $data] [unset data]} } hellohello +test string-30.1.2.$noComp {[Bug ba921a8d98]: inplace cat by subst (compiled to "strcat" instruction)} { + run {set x "[set data [binary format a* hello]][encoding convertto $data][unset data]"} +} hellohello } |