Tcl Source Code

Check-in [36b1780d1a]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:missing constraint
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:36b1780d1af37c1bfd3356c2242e4509a5496a6b
User & Date: dgp 2014-05-01 01:15:42
Context
2014-05-01
01:26
Merge in the fixes for improper ChannelBuffer sharing via recycling. check-in: a63b3cbe41 user: dgp tags: trunk
01:15
missing constraint check-in: 36b1780d1a user: dgp tags: trunk
2014-04-30
21:24
[82e7f67325] Fix an evil refcount problem in compiled [string replace]. check-in: 9d2057859c user: dkf tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/stringComp.test.

706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
test stringComp-14.1 {Bug 82e7f67325} {
    apply {{} {
	set a [join {a b} {}]
	lappend b [string length [string replace ___! 0 2 $a]]
	lappend b [string length [string replace ___! 0 2 $a[unset a]]]
    }}
} {3 3}
test stringComp-14.2 {Bug 82e7f67325} {
    # As in stringComp-14.1, but make sure we don't retain too many refs
    leaktest {
	apply {{} {
	    set a [join {a b} {}]
	    lappend b [string length [string replace ___! 0 2 $a]]
	    lappend b [string length [string replace ___! 0 2 $a[unset a]]]
	}}







|







706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
test stringComp-14.1 {Bug 82e7f67325} {
    apply {{} {
	set a [join {a b} {}]
	lappend b [string length [string replace ___! 0 2 $a]]
	lappend b [string length [string replace ___! 0 2 $a[unset a]]]
    }}
} {3 3}
test stringComp-14.2 {Bug 82e7f67325} memory {
    # As in stringComp-14.1, but make sure we don't retain too many refs
    leaktest {
	apply {{} {
	    set a [join {a b} {}]
	    lappend b [string length [string replace ___! 0 2 $a]]
	    lappend b [string length [string replace ___! 0 2 $a[unset a]]]
	}}