tests/return.test


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57

source [file dirname [info script]]/testing.tcl

set testpath [file dirname [info script]]

# return -code

test return-1.1 {return -code} {
	set script "return -code 4 result"
	list [catch {eval $script} msg] $msg
} {2 result}

test return-1.2 {source file with break} {
	list [catch {source $testpath/break.tcl} msg] $msg
} {3 {}}

test return-1.3 {source file with break} {
	list [catch {source $testpath/return-break.tcl} msg] $msg
} {3 result}

proc a {level code msg} {
	return -level $level -code $code $msg
}

proc b {level code msg} {
	a $level $code $msg
}

test return-2.1 {return -level 0} {
	list [catch {a 0 20 text} msg] $msg
} {20 text}

test return-2.2 {return -level 1} {
	list [catch {a 1 20 text} msg] $msg
} {20 text}

test return-2.3 {return -level 2} {
	list [catch {a 2 20 text} msg] $msg
} {2 text}

test return-2.4 {return -level 0} {
	list [catch {b 0 20 text} msg] $msg
} {20 text}

test return-2.5 {return -level 1} {
	list [catch {b 1 20 text} msg] $msg
} {20 text}

test return-2.6 {return -level 2} {
	list [catch {b 2 20 text} msg] $msg
} {20 text}

test return-2.7 {return -level 0 -code break} {
	list [catch {return -level 0 -code break text} msg] $msg
} {3 text}


testreport