This repository was archived by the owner on Aug 31, 2021. It is now read-only.
-
Notifications
You must be signed in to change notification settings - Fork 223
Expand file tree
/
Copy pathtry.livecodescript
More file actions
252 lines (222 loc) · 6.54 KB
/
Copy pathtry.livecodescript
File metadata and controls
252 lines (222 loc) · 6.54 KB
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
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
script "CoreControlTry"
/*
Copyright (C) 2017 LiveCode Ltd.
This file is part of LiveCode.
LiveCode is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License v3 as published by the Free
Software Foundation.
LiveCode is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with LiveCode. If not see <http://www.gnu.org/licenses/>. */
on TestTry
try
try
NonExistantHandler1
catch tError
TestAssert "Catch catches error", true
TestAssert "Error is not empty in catch", line 1 of tError contains "NonExistantHandler1"
NonExistantHandler2
finally
TestAssert "Finally executes regardless of error in catch", true
end try
end try
end TestTry
on TestTryNoCatch
local tTest
try
put false into tTest
finally
put true into tTest
end try
TestAssert "Finally executes regardless of catch block", tTest
end TestTryNoCatch
on TestTryFinallyNoStatements
local tTest = false
try
finally
put true into tTest
end try
TestAssertBroken "Finally executes regardless of try statements", tTest, "Bug 19811"
end TestTryFinallyNoStatements
on TestTryNoCatchWithError
try
NonExistantHandler
finally
TestAssert "Finally executes regardless of no catch block with try error", true
end try
end TestTryNoCatchWithError
on TestTryMultipleEvents
if the environment is "command line" or the platform is "HTML5" then
TestSkip "Try execution context", "no type command available"
return empty
end if
try
create stack "test"
set the defaultStack to "test"
create field "test"
set the script of field "test" to "on keyDown;NonExistantHandler1;end keyDown"
focus on field "test"
type "g"
catch tError1
end try
TestAssert "Errors from other events aren't caught", tError1 is empty
try
NonExistantHandler2
catch tError2
end try
TestAssert "Errors from other events don't pollute caught error", line 1 of tError2 contains "NonExistantHandler2"
end TestTryMultipleEvents
on TestTryErrorInCatch
TestAssertBroken "Error in catch is thrown", false, "Bug 19812"
/*TestAssertThrow "Error in catch is thrown", "__TestTryErrorInCatch", the long id of me, "EE_STATEMENT_BADCOMMAND"
try
NonExistantHandler3
catch tError
TestAssert "Unthrown errors in catch are cleared", line 1 of tError contains "NonExistantHandler3"
end try*/
end TestTryErrorInCatch
on __TestTryErrorInCatch
try
NonExistantHandler1
catch tError
NonExistantHandler2
end try
end __TestTryErrorInCatch
on TestTryErrorInFinally
TestAssertBroken "Error in finally is thrown", false, "Bug 19812"
/*TestAssertThrow "Error in finally is thrown", "__TestTryErrorInFinally", the long id of me, "EE_STATEMENT_BADCOMMAND"
try
NonExistantHandler3
catch tError
TestAssert "Unthrown errors in finally are cleared", line 1 of tError contains "NonExistantHandler3"
end try
TestAssertThrow "Error in finally is thrown", "__TestTryErrorInFinallyNoTryStatements", the long id of me, "EE_STATEMENT_BADCOMMAND"*/
end TestTryErrorInFinally
on __TestTryErrorInFinally
try
NonExistantHandler1
finally
NonExistantHandler2
end try
end __TestTryErrorInFinally
on __TestTryErrorInFinallyNoTryStatements
try
finally
NonExistantHandler2
end try
end __TestTryErrorInFinallyNoTryStatements
on TestTryErrorNoCatch
try
NonExistantHandler
end try
TestAssert "Error in try with no catch ignored", true
end TestTryErrorNoCatch
on TestTryPassHandler
try
try
pass TestTryPassHandler
end try
NonExistantHandler
catch tError1
end try
TestAssertBroken "Handler passed from try", tError1 is empty, "Bug 19809"
try
try
NonExistantHandler
catch tError2
pass TestTryPassHandler
end try
catch tError3
end try
TestAssertBroken "Handler passed from catch", tError3 is empty, "Bug 19809"
try
try
NonExistantHandler
finally
pass TestTryPassHandler
end try
catch tError4
end try
TestAssertBroken "Handler passed from finally", tError4 is empty, "Bug 19809"
end TestTryPassHandler
on TestTryPassHandlerToTop
try
pass TestTryPassHandlerToTop to top
finally
TestAssert "Finally executed when handler pass to top from try", true
end try
TestAssert "Handler passed to top from try", false
end TestTryPassHandlerToTop
on TestTryCatchPassHandlerToTop
try
NonExistantHandler
catch tError
pass TestTryCatchPassHandlerToTop to top
finally
TestAssert "Finally executed when handler pass to top from catch", true
end try
TestAssertBroken "Handler passed to top from catch", false
end TestTryCatchPassHandlerToTop
on TestTryFinallyPassHandlerToTop
try
NonExistantHandler
finally
pass TestTryFinallyPassHandlerToTop to top
end try
TestAssertBroken "Handler passed to top from finally", false, "Bug 11773"
end TestTryFinallyPassHandlerToTop
on TestTryExitHandler
try
exit TestTryExitHandler
finally
TestAssert "Finally executed when handler exits from try", true
end try
TestAssert "Handler exit from try", false
end TestTryExitHandler
on TestTryCatchExitHandler
try
NonExistantHandler
catch tError2
exit TestTryCatchExitHandler
finally
TestAssert "Finally executed when handler exits from catch", true
end try
TestAssert "Handler exit from catch", false
end TestTryCatchExitHandler
on TestTryFinallyExitHandler
try
NonExistantHandler
finally
exit TestTryFinallyExitHandler
end try
TestAssertBroken "Handler exit from finally", false, "Bug 11773"
end TestTryFinallyExitHandler
on TestTryReturn
try
return empty
finally
TestAssert "Finally executed when return from try", true
end try
TestAssert "Return from try", false
end TestTryReturn
on TestTryCatchReturn
try
NonExistantHandler
catch tError
return empty
finally
TestAssert "Finally executed when return from catch", true
end try
TestAssert "Return from catch", false
end TestTryCatchReturn
on TestTryFinallyReturn
try
NonExistantHandler
finally
return empty
end try
TestAssertBroken "Return from finally", false, "Bug 11773"
end TestTryFinallyReturn