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

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]
        }
	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 {}