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 | SQL 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 |
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 2018 2019 2020 2021 2022 2023 2024 2025 2026 2027 2028 2029 2030 2031 |
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 {[Bug ba921a8d98]} {
string cat [set data [binary format a* hello]] [encoding convertto $data] [unset data]
} hellohello
# cleanup
rename MemStress {}
catch {rename foo {}}
::tcltest::cleanupTests
return
# Local Variables:
# mode: tcl
# End:
|
| > > > |
2011 2012 2013 2014 2015 2016 2017 2018 2019 2020 2021 2022 2023 2024 2025 2026 2027 2028 2029 2030 2031 2032 2033 2034 |
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
return
# Local Variables:
# mode: tcl
# End:
|