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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
|
# Basic goto tests
function goto_test1()
@goto a
return false
@label a
return true
end
@test goto_test1()
@test_throws ErrorException eval(
quote
function goto_test2()
@goto a
@label a
@label a
return
end
end)
@test_throws ErrorException eval(
quote
function goto_test3()
@goto a
return
end
end)
@test_throws ErrorException eval(
quote
function goto_test4()
@goto a
try
@label a
catch
end
end
end)
# test that labels in macros are reassigned
macro goto_test5_macro()
@label a
end
@test_throws ErrorException eval(
quote
function goto_test5()
@goto a
@goto_test5_macro
return
end
end)
@test_throws ErrorException eval(
quote
function goto_test6()
try
@goto a
finally
end
@label a
return
end
end)
function goto_test6()
@goto a
@label a
end
@test goto_test6() == nothing
function goto_test7(x)
@label a
if x
@goto a
end
end
@test goto_test7(false) == nothing
module GotoMacroTest
macro goto_test8_macro()
quote
function $(esc(:goto_test8))()
@label a
@goto a
end
end
end
end
GotoMacroTest.@goto_test8_macro
|
