Tcl Source Code

Check-in [caba7ba1cf]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

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: caba7ba1cf3f3f837d24cde88f3343a9c6c58df489c18589c62c2bef62c35e8b
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
Hide Diffs Unified Diffs Ignore Whitespace Patch

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: