Differences From Artifact [712019ae60]:

• File tests/result.test — part of check-in [d8a3450f12] at 2024-07-20 15:59:29 on branch unchained — Merge trunk [91c2f411e7e71552], TIP #636 (tip-636-tcl9-644), resolve all conflicts including those resulting from conflicting Tcl_Obj interface implementations, and relicense under GNU Affero General Public License. All tests pass. (user: pooryorick size: 5736) [more...]

To Artifact [841aedecf9]:

• File tests/result.test — part of check-in [f3091051a5] at 2024-10-16 18:58:13 on branch unchained — Merge [bea36e3b59a0092c]: Indenting in testcases. Always use tabs in stead of 8 spaces. (user: pooryorick size: 5701) [more...]

122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140

    proc foo {} {catch {return -level 2}; testreturn}
    foo
} -cleanup {
    rename foo {}
} -result {}
test result-6.2 {Bug 1649062} -setup {
    proc foo {} {
        if {[catch {
            return -code error -errorinfo custom -errorcode CUSTOM foo
        } err]} {
            return [list $err $::errorCode $::errorInfo]
        }
    }
    set ::errorInfo {}
    set ::errorCode {}
} -body {
    foo
} -cleanup {
    rename foo {}

|
|
|
|
|

122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140

    proc foo {} {catch {return -level 2}; testreturn}
    foo
} -cleanup {
    rename foo {}
} -result {}
test result-6.2 {Bug 1649062} -setup {
    proc foo {} {
	if {[catch {
	    return -code error -errorinfo custom -errorcode CUSTOM foo
	} err]} {
	    return [list $err $::errorCode $::errorInfo]
	}
    }
    set ::errorInfo {}
    set ::errorCode {}
} -body {
    foo
} -cleanup {
    rename foo {}