Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | amend to [d498578df4], still one test for [Bug ba921a8d98] with inplace by subst inside string (compiled as "strcat" instruction) |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | core-8-6-branch |
Files: | files | file ages | folders |
SHA3-256: |
caba7ba1cf3f3f837d24cde88f3343a9 |
User & Date: | sebres 2018-07-26 18:07:34.557 |
Context
2018-07-26
| ||
18:51 | merge 8.5 - bug [d051b77fc1] fixed check-in: de522f0a45 user: sebres tags: core-8-6-branch | |
18:15 | merge test cases from 8.6 check-in: c46f02dc09 user: sebres tags: core-8-branch | |
18:07 | amend to [d498578df4], still one test for [Bug ba921a8d98] with inplace by subst inside string (comp... check-in: caba7ba1cf user: sebres tags: core-8-6-branch | |
15:51 | New test for [Bug ba921a8d98]. check-in: d498578df4 user: dgp tags: core-8-6-branch | |
Changes
Changes to tests/string.test.
︙ | ︙ | |||
2011 2012 2013 2014 2015 2016 2017 | set vv [string repeat {$x} $n] set vvs [string repeat {$x } $n] set r1 [string compare $xx [subst $vv]] set r2 [string compare $xx [eval "string cat $vvs"]] list $r1 $r2 } {0 0} | | > > > | 2011 2012 2013 2014 2015 2016 2017 2018 2019 2020 2021 2022 2023 2024 2025 2026 2027 2028 2029 | set vv [string repeat {$x} $n] set vvs [string repeat {$x } $n] set r1 [string compare $xx [subst $vv]] set r2 [string compare $xx [eval "string cat $vvs"]] list $r1 $r2 } {0 0} 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 rename MemStress {} catch {rename foo {}} ::tcltest::cleanupTests |
︙ | ︙ |