blob: feaf1bc96720e7c764a45a2ed0b88996897909b3 (
plain) (
blame)
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
|
discard """
output: "B1\nA1\n1\nB1\nB2\ncatch\nA1\n1\nB1\nA1\nA2\n2\nB1\nB2\ncatch\nA1\nA2\n0\nB1\nA1\n1\nB1\nB2\nA1\n1\nB1\nA1\nA2\n2\nB1\nB2\nA1\nA2\n3"
"""
# More thorough test of return-in-finaly
var raiseEx = true
var returnA = true
var returnB = false
proc main: int =
try: #A
try: #B
if raiseEx:
raise newException(OSError, "")
return 3
finally: #B
echo "B1"
if returnB:
return 2
echo "B2"
except OSError: #A
echo "catch"
finally: #A
echo "A1"
if returnA:
return 1
echo "A2"
for x in [true, false]:
for y in [true, false]:
for z in [true, false]:
# echo "raiseEx: " & $x
# echo "returnA: " & $y
# echo "returnB: " & $z
raiseEx = x
returnA = y
returnB = z
echo main()
|