Tcl Source Code

Check-in [dd63631c29]
Login

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

Overview
Comment:dup test name
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: dd63631c298a95dbeb46896188b53af00a5b6b4b
User & Date: dgp 2012-11-08 16:22:35
Context
2012-11-09
12:11
Flag USE_TCLOO_STUBS is not necessary any more for extensions: Stubs are the only way to access TclO... check-in: 06345d5b54 user: jan.nijtmans tags: trunk
2012-11-08
21:46
merge trunk; resolve conflicts check-in: b9106ac438 user: dgp tags: dgp-refactor
16:22
dup test name check-in: dd63631c29 user: dgp tags: trunk
15:21
Updated the language of the documentation so that "object" refers to an OO concept throughout, and a... check-in: d664748a86 user: dkf tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/dict.test.

1801
1802
1803
1804
1805
1806
1807
1808
1809
1810
1811
1812
1813
1814
1815
	dict map {a b} $x {}
	concat "c=$y,$args"
    }} {} 1 2 3
} {c=1,2 3}
proc linenumber {} {
    dict get [info frame -1] line
}
test dict-24.20 {dict compilation crash: 'dict for' bug 3487626} {
    apply {{} {apply {n {
	set e {}
	set k {}
	dict map {a b} {c {d {e {f g}}}} {
	    ::tcl::dict::map {h i} $b {
		dict update i e j {
		    ::tcl::dict::update j f k {







|







1801
1802
1803
1804
1805
1806
1807
1808
1809
1810
1811
1812
1813
1814
1815
	dict map {a b} $x {}
	concat "c=$y,$args"
    }} {} 1 2 3
} {c=1,2 3}
proc linenumber {} {
    dict get [info frame -1] line
}
test dict-24.20.1 {dict compilation crash: 'dict for' bug 3487626} {
    apply {{} {apply {n {
	set e {}
	set k {}
	dict map {a b} {c {d {e {f g}}}} {
	    ::tcl::dict::map {h i} $b {
		dict update i e j {
		    ::tcl::dict::update j f k {