1 source [file dirname [info script]]/testing.tcl
3 set testpath [file dirname [info script]]
7 test return-1.1 {return -code} {
8 set script "return -code 4 result"
9 list [catch {eval $script} msg] $msg
12 test return-1.2 {source file with break} {
13 list [catch {source $testpath/break.tcl} msg] $msg
16 test return-1.3 {source file with break} {
17 list [catch {source $testpath/return-break.tcl} msg] $msg
20 proc a {level code msg} {
21 return -level $level -code $code $msg
24 proc b {level code msg} {
28 test return-2.1 {return -level 0} {
29 list [catch {a 0 20 text} msg] $msg
32 test return-2.2 {return -level 1} {
33 list [catch {a 1 20 text} msg] $msg
36 test return-2.3 {return -level 2} {
37 list [catch {a 2 20 text} msg] $msg
40 test return-2.4 {return -level 0} {
41 list [catch {b 0 20 text} msg] $msg
44 test return-2.5 {return -level 1} {
45 list [catch {b 1 20 text} msg] $msg
48 test return-2.6 {return -level 2} {
49 list [catch {b 2 20 text} msg] $msg
52 test return-2.7 {return -level 0 -code break} {
53 list [catch {return -level 0 -code break text} msg] $msg