blob: e04b7fb2304e1c92050d806d53c2ce1564340fee (
plain)
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
|
set ret2 ""
set res2 ""
set progress ""
set ret1 [catch -signal {
append progress a
set ret2 [catch {
append progress b
signal handle TERM
signal throw -TERM
append progress c
} res2]
append progress d
} res1]
check signal.1 $progress ab
check signal.2 $ret1 5
check signal.3 $ret2 ""
check signal.4 $res1 SIGTERM
check signal.5 $res2 ""
set result 0
catch -signal {
signal handle ALRM
alarm 1
sleep 2
set result 1
} ret
check signal.7 $result 0
check signal.6 $ret SIGALRM
|