Tcl Source Code

Check-in [d498578df4]
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:New test for [Bug ba921a8d98].
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | core-8-6-branch
Files: files | file ages | folders
SHA3-256: d498578df48ce7cb670002dea8af07247fd95e048f18b0a5cb5d3de4ca57f8ea
User & Date: dgp 2018-07-26 15:51:28
References
2018-07-26
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
Context
2018-07-26
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
16:14
[ba921a8d98] Make sure [string cat] includes all data from all bytearrays. check-in: 9819e2fe99 user: dgp tags: core-8-branch
15:51
New test for [Bug ba921a8d98]. check-in: d498578df4 user: dgp tags: core-8-6-branch
2018-07-21
18:45
Add a note in the 'clock' man page about the interpretation of impossible values on [clock scan] check-in: 8d69e2a5f2 user: kbk 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
    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}






# 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
    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: