115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
|
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
|
-
-
-
-
-
+
+
+
+
+
|
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]
}
|