diff options
| author | sebres <sebres@users.sourceforge.net> | 2018-07-26 18:07:34 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2018-07-26 18:07:34 (GMT) |
| commit | 2133e40e589348c5df1b721c1d0e0ac2f2385505 (patch) | |
| tree | 7a91ea197664377f89910ad90c8b8d22525c4012 /tests/string.test | |
| parent | 164a7f04c03e56a310d9386fd8ddbd6319c0c788 (diff) | |
| download | tcl-2133e40e589348c5df1b721c1d0e0ac2f2385505.zip tcl-2133e40e589348c5df1b721c1d0e0ac2f2385505.tar.gz tcl-2133e40e589348c5df1b721c1d0e0ac2f2385505.tar.bz2 | |
amend to [d498578df4], still one test for [Bug ba921a8d98] with inplace by subst inside string (compiled as "strcat" instruction)
Diffstat (limited to 'tests/string.test')
| -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 3f5fd81..8fc5b0e 100644 --- a/tests/string.test +++ b/tests/string.test @@ -2015,9 +2015,12 @@ test string-29.4 {string cat, many args} { list $r1 $r2 } {0 0} -test string-30.1 {[Bug ba921a8d98]} { +test string-30.1.1 {[Bug ba921a8d98]: string cat} { string cat [set data [binary format a* hello]] [encoding convertto $data] [unset data] } hellohello +test string-30.1.2 {[Bug ba921a8d98]: inplace cat by subst (compiled to "strcat" instruction)} { + set x "[set data [binary format a* hello]][encoding convertto $data][unset data]" +} hellohello # cleanup |