summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorAllan Cornet <allan.cornet@scilab.org>2006-11-21 19:54:46 +0000
committerAllan Cornet <allan.cornet@scilab.org>2006-11-21 19:54:46 +0000
commit2bab5634647f29fc214aab3ec3401546439d31f4 (patch)
tree1e61ca354cb13adaf6e47cc9c87a5f9ad967bdbe /tests
parent46b1f1dc76bdf8709c814ec06978ddc1ed2a016f (diff)
downloadscilab-2bab5634647f29fc214aab3ec3401546439d31f4.zip
scilab-2bab5634647f29fc214aab3ec3401546439d31f4.tar.gz
update .ref fun2string
Diffstat (limited to 'tests')
-rw-r--r--tests/basic_tests/trycatch.dia.ref1359
1 files changed, 678 insertions, 681 deletions
diff --git a/tests/basic_tests/trycatch.dia.ref b/tests/basic_tests/trycatch.dia.ref
index ba8b5db..2379786 100644
--- a/tests/basic_tests/trycatch.dia.ref
+++ b/tests/basic_tests/trycatch.dia.ref
@@ -1,681 +1,678 @@
1 1
2//interactive mode 2//interactive mode
3 3
4clear a b 4clear a b
5 5
6try 6try
7 a=1; 7 a=1;
8catch 8catch
9 b=2+1; 9 b=2+1;
10end 10end
11 11
12if exists('a')==0|exists('b')==1 then bugmes();quit;end 12if exists('a')==0|exists('b')==1 then bugmes();quit;end
13 13
14if a<>1 then bugmes();quit;end 14if a<>1 then bugmes();quit;end
15 15
16 16
17clear a b 17clear a b
18 18
19try a=1+1; 19try a=1+1;
20catch 20catch
21 b=2; 21 b=2;
22end 22end
23 23
24if exists('a')==0|exists('b')==1 then bugmes();quit;end 24if exists('a')==0|exists('b')==1 then bugmes();quit;end
25 25
26if a<>2 then bugmes();quit;end 26if a<>2 then bugmes();quit;end
27 27
28 28
29clear a b 29clear a b
30 30
31try a=1; 31try a=1;
32catch b=2; 32catch b=2;
33end 33end
34 34
35if exists('a')==0|exists('b')==1 then bugmes();quit;end 35if exists('a')==0|exists('b')==1 then bugmes();quit;end
36 36
37if a<>1 then bugmes();quit;end 37if a<>1 then bugmes();quit;end
38 38
39 39
40clear a b 40clear a b
41 41
42try a=1;catch b=2;end 42try a=1;catch b=2;end
43 43
44if exists('a')==0|exists('b')==1 then bugmes();quit;end 44if exists('a')==0|exists('b')==1 then bugmes();quit;end
45 45
46if a<>1 then bugmes();quit;end 46if a<>1 then bugmes();quit;end
47 47
48 48
49clear a b 49clear a b
50 50
51try, a=1;catch, b=2;end 51try, a=1;catch, b=2;end
52 52
53if exists('a')==0|exists('b')==1 then bugmes();quit;end 53if exists('a')==0|exists('b')==1 then bugmes();quit;end
54 54
55if a<>1 then bugmes();quit;end 55if a<>1 then bugmes();quit;end
56 56
57 57
58 58
59clear a b xxxx 59clear a b xxxx
60 60
61try 61try
62 a=xxxx; 62 a=xxxx;
63catch 63catch
64 b=2; 64 b=2;
65end 65end
66 66
67if exists('a')==1|exists('b')==0 then bugmes();quit;end 67if exists('a')==1|exists('b')==0 then bugmes();quit;end
68 68
69if b<>2 then bugmes();quit;end 69if b<>2 then bugmes();quit;end
70 70
71 71
72clear a b xxxx 72clear a b xxxx
73 73
74try a=xxxx; 74try a=xxxx;
75catch 75catch
76 b=2; 76 b=2;
77end 77end
78 78
79if exists('a')==1|exists('b')==0 then bugmes();quit;end 79if exists('a')==1|exists('b')==0 then bugmes();quit;end
80 80
81if b<>2 then bugmes();quit;end 81if b<>2 then bugmes();quit;end
82 82
83 83
84clear a b xxxx 84clear a b xxxx
85 85
86try 86try
87 a=xxxx; 87 a=xxxx;
88catch b=2; 88catch b=2;
89end 89end
90 90
91if exists('a')==1|exists('b')==0 then bugmes();quit;end 91if exists('a')==1|exists('b')==0 then bugmes();quit;end
92 92
93if b<>2 then bugmes();quit;end 93if b<>2 then bugmes();quit;end
94 94
95 95
96clear a b xxxx 96clear a b xxxx
97 97
98try a=xxxx; 98try a=xxxx;
99catch b=2; 99catch b=2;
100end 100end
101 101
102if exists('a')==1|exists('b')==0 then bugmes();quit;end 102if exists('a')==1|exists('b')==0 then bugmes();quit;end
103 103
104if b<>2 then bugmes();quit;end 104if b<>2 then bugmes();quit;end
105 105
106 106
107 107
108clear a b xxxx 108clear a b xxxx
109 109
110try a=xxxx;catch b=2;end 110try a=xxxx;catch b=2;end
111 111
112if exists('a')==1|exists('b')==0 then bugmes();quit;end 112if exists('a')==1|exists('b')==0 then bugmes();quit;end
113 113
114if b<>2 then bugmes();quit;end 114if b<>2 then bugmes();quit;end
115 115
116 116
117clear a b xxxx 117clear a b xxxx
118 118
119if execstr('try a=xxxx catch b=2;end','errcatch')<>276 then bugmes();quit;end 119if execstr('try a=xxxx catch b=2;end','errcatch')<>276 then bugmes();quit;end
120 120
121if exists('a')==1|exists('b')==1 then bugmes();quit;end 121if exists('a')==1|exists('b')==1 then bugmes();quit;end
122 122
123 123
124 124
125clear a b xxxx 125clear a b xxxx
126 126
127if execstr('try a=1 catch b=2;end','errcatch')<>276 then bugmes();quit;end 127if execstr('try a=1 catch b=2;end','errcatch')<>276 then bugmes();quit;end
128 128
129if exists('a')==1|exists('b')==1 then bugmes();quit;end 129if exists('a')==1|exists('b')==1 then bugmes();quit;end
130 130
131 131
132 132
133clear a b xxxx 133clear a b xxxx
134 134
135 135
136try, a=xxxx;catch, b=2;end 136try, a=xxxx;catch, b=2;end
137 137
138if exists('a')==1|exists('b')==0 then bugmes();quit;end 138if exists('a')==1|exists('b')==0 then bugmes();quit;end
139 139
140if b<>2 then bugmes();quit;end 140if b<>2 then bugmes();quit;end
141 141
142 142
143clear a xxxx 143clear a xxxx
144 144
145try, a=xxxx;catch;end 145try, a=xxxx;catch;end
146 146
147if exists('a')==1 then bugmes();quit;end 147if exists('a')==1 then bugmes();quit;end
148 148
149 149
150clear a xxxx 150clear a xxxx
151 151
152try, a=xxxx;end 152try, a=xxxx;end
153 153
154if exists('a')==1 then bugmes();quit;end 154if exists('a')==1 then bugmes();quit;end
155 155
156 156
157clear a b xxxx 157clear a b xxxx
158 158
159try;catch, b=2;end 159try;catch, b=2;end
160 160
161if exists('b')==1 then bugmes();quit;end 161if exists('b')==1 then bugmes();quit;end
162 162
163 163
164try,end 164try,end
165 165
166 166
167clear a b xxxx 167clear a b xxxx
168 168
169u=1;try, a=xxxx;catch, b=2;end 169u=1;try, a=xxxx;catch, b=2;end
170 170
171if exists('a')==1|exists('b')==0 then bugmes();quit;end 171if exists('a')==1|exists('b')==0 then bugmes();quit;end
172 172
173if b<>2 then bugmes();quit;end 173if b<>2 then bugmes();quit;end
174 174
175 175
176clear a b xxxx 176clear a b xxxx
177 177
178try, if %t then a=xxxx,end;catch, b=2;end 178try, if %t then a=xxxx,end;catch, b=2;end
179 179
180if exists('a')==1|exists('b')==0 then bugmes();quit;end 180if exists('a')==1|exists('b')==0 then bugmes();quit;end
181 181
182if b<>2 then bugmes();quit;end 182if b<>2 then bugmes();quit;end
183 183
184 184
185//nested try catch 185//nested try catch
186 186
187clear a b xxxx 187clear a b xxxx
188 188
189try 189try
190 a=xxxx; 190 a=xxxx;
191catch 191catch
192 try 192 try
193 b=xxx, 193 b=xxx,
194 catch 194 catch
195 b=2; 195 b=2;
196 end; 196 end;
197 b=b+1; 197 b=b+1;
198end 198end
199 199
200if exists('a')==1|exists('b')==0 then bugmes();quit;end 200if exists('a')==1|exists('b')==0 then bugmes();quit;end
201 201
202if b<>3 then bugmes();quit;end 202if b<>3 then bugmes();quit;end
203 203
204 204
205clear a b xxxx 205clear a b xxxx
206 206
207try a=xxxx;catch try b=xxx,catch b=2;end;end 207try a=xxxx;catch try b=xxx,catch b=2;end;end
208 208
209if exists('a')==1|exists('b')==0 then bugmes();quit;end 209if exists('a')==1|exists('b')==0 then bugmes();quit;end
210 210
211if b<>2 then bugmes();quit;end 211if b<>2 then bugmes();quit;end
212 212
213 213
214 214
215clear a b xxxx 215clear a b xxxx
216 216
217try a=2;try a=xxxx; catch a=a+1,end;catch;b=2;end 217try a=2;try a=xxxx; catch a=a+1,end;catch;b=2;end
218 a = 218 a =
219 219
220 3. 220 3.
221 221
222if exists('a')==0|exists('b')==1 then bugmes();quit;end 222if exists('a')==0|exists('b')==1 then bugmes();quit;end
223 223
224if a<>3 then bugmes();quit;end 224if a<>3 then bugmes();quit;end
225 225
226 226
227 227
228clear a b xxxx 228clear a b xxxx
229 229
230try a=2;try a=xxxx; catch a=a+1,end;b=2;end 230try a=2;try a=xxxx; catch a=a+1,end;b=2;end
231 a = 231 a =
232 232
233 3. 233 3.
234 234
235if exists('a')==0|exists('b')==0 then bugmes();quit;end 235if exists('a')==0|exists('b')==0 then bugmes();quit;end
236 236
237if a<>3|b<>2 then bugmes();quit;end 237if a<>3|b<>2 then bugmes();quit;end
238 238
239 239
240//catch in functions 240//catch in functions
241 241
242funcprot(0) 242funcprot(0)
243 243
244clear a b 244clear a b
245 245
246deff('r=test()',[ 246deff('r=test()',[
247 'try' 247 'try'
248 ' a=1;' 248 ' a=1;'
249 'catch ' 249 'catch '
250 ' b=2+1;' 250 ' b=2+1;'
251 'end' 251 'end'
252 'r=exists(''a'')==0|exists(''b'')==1 ' 252 'r=exists(''a'')==0|exists(''b'')==1 '
253 'r=r|a<>1'],'n') 253 'r=r|a<>1'],'n')
254 254
255if test() then bugmes();quit;end 255if test() then bugmes();quit;end
256 256
257comp(test);if test() then bugmes();quit;end 257comp(test);if test() then bugmes();quit;end
258 258
259 259
260deff('r=test()',[ 260deff('r=test()',[
261 'try a=1;' 261 'try a=1;'
262 'catch ' 262 'catch '
263 ' b=2;' 263 ' b=2;'
264 'end' 264 'end'
265 'r=exists(''a'')==0|exists(''b'')==1' 265 'r=exists(''a'')==0|exists(''b'')==1'
266 'r=r|a<>1'],'n') 266 'r=r|a<>1'],'n')
267 267
268if test() then bugmes();quit;end 268if test() then bugmes();quit;end
269 269
270comp(test);if test() then bugmes();quit;end 270comp(test);if test() then bugmes();quit;end
271 271
272 272
273deff('r=test()',[ 273deff('r=test()',[
274 'try a=1;' 274 'try a=1;'
275 'catch b=2;' 275 'catch b=2;'
276 'end' 276 'end'
277 'r=exists(''a'')==0|exists(''b'')==1' 277 'r=exists(''a'')==0|exists(''b'')==1'
278 'r=r|a<>1'],'n') 278 'r=r|a<>1'],'n')
279 279
280if test() then bugmes();quit;end 280if test() then bugmes();quit;end
281 281
282comp(test);if test() then bugmes();quit;end 282comp(test);if test() then bugmes();quit;end
283 283
284 284
285deff('r=test()',[ 285deff('r=test()',[
286 'try a=1;catch b=2;end' 286 'try a=1;catch b=2;end'
287 'r=exists(''a'')==0|exists(''b'')==1' 287 'r=exists(''a'')==0|exists(''b'')==1'
288 'r=r|a<>1'],'n') 288 'r=r|a<>1'],'n')
289 289
290if test() then bugmes();quit;end 290if test() then bugmes();quit;end
291 291
292comp(test);if test() then bugmes();quit;end 292comp(test);if test() then bugmes();quit;end
293 293
294 294
295deff('r=test()',[ 295deff('r=test()',[
296 'try, a=1;catch, b=2;end' 296 'try, a=1;catch, b=2;end'
297 'r=exists(''a'')==0|exists(''b'')==1' 297 'r=exists(''a'')==0|exists(''b'')==1'
298 'r=r|a<>1'],'n') 298 'r=r|a<>1'],'n')
299 299
300if test() then bugmes();quit;end 300if test() then bugmes();quit;end
301 301
302comp(test);if test() then bugmes();quit;end 302comp(test);if test() then bugmes();quit;end
303 303
304 304
305clear a b xxxx 305clear a b xxxx
306 306
307deff('r=test()',[ 307deff('r=test()',[
308 'try' 308 'try'
309 ' a=xxxx;' 309 ' a=xxxx;'
310 'catch ' 310 'catch '
311 ' b=2;' 311 ' b=2;'
312 'end' 312 'end'
313 'r=exists(''a'')==1|exists(''b'')==0' 313 'r=exists(''a'')==1|exists(''b'')==0'
314 'r=r|b<>2'],'n') 314 'r=r|b<>2'],'n')
315 315
316if test() then bugmes();quit;end 316if test() then bugmes();quit;end
317 317
318comp(test);if test() then bugmes();quit;end 318comp(test);if test() then bugmes();quit;end
319 319
320 320
321deff('r=test()',[ 321deff('r=test()',[
322 'try a=xxxx;' 322 'try a=xxxx;'
323 'catch ' 323 'catch '
324 ' b=2;' 324 ' b=2;'
325 'end' 325 'end'
326 'r=exists(''a'')==1|exists(''b'')==0' 326 'r=exists(''a'')==1|exists(''b'')==0'
327 'r=r|b<>2'],'n') 327 'r=r|b<>2'],'n')
328 328
329if test() then bugmes();quit;end 329if test() then bugmes();quit;end
330 330
331comp(test);if test() then bugmes();quit;end 331comp(test);if test() then bugmes();quit;end
332 332
333 333
334deff('r=test()',[ 334deff('r=test()',[
335 'try' 335 'try'
336 ' a=xxxx;' 336 ' a=xxxx;'
337 'catch b=2;' 337 'catch b=2;'
338 'end' 338 'end'
339 'r=exists(''a'')==1|exists(''b'')==0' 339 'r=exists(''a'')==1|exists(''b'')==0'
340 'r=r|b<>2'],'n') 340 'r=r|b<>2'],'n')
341 341
342if test() then bugmes();quit;end 342if test() then bugmes();quit;end
343 343
344comp(test);if test() then bugmes();quit;end 344comp(test);if test() then bugmes();quit;end
345 345
346 346
347deff('r=test()',[ 347deff('r=test()',[
348 'try a=xxxx;' 348 'try a=xxxx;'
349 'catch b=2;' 349 'catch b=2;'
350 'end' 350 'end'
351 'r=exists(''a'')==1|exists(''b'')==0' 351 'r=exists(''a'')==1|exists(''b'')==0'
352 'r=r|b<>2'],'n') 352 'r=r|b<>2'],'n')
353 353
354if test() then bugmes();quit;end 354if test() then bugmes();quit;end
355 355
356comp(test);if test() then bugmes();quit;end 356comp(test);if test() then bugmes();quit;end
357 357
358 358
359deff('r=test()',[ 359deff('r=test()',[
360 'try a=xxxx;catch b=2;end' 360 'try a=xxxx;catch b=2;end'
361 'r=exists(''a'')==1|exists(''b'')==0' 361 'r=exists(''a'')==1|exists(''b'')==0'
362 'r=r|b<>2'],'n') 362 'r=r|b<>2'],'n')
363 363
364if test() then bugmes();quit;end 364if test() then bugmes();quit;end
365 365
366comp(test);if test() then bugmes();quit;end 366comp(test);if test() then bugmes();quit;end
367 367
368 368
369deff('r=test()',[ 369deff('r=test()',[
370 'if execstr(''try a=xxxx catch b=2;end'',''errcatch'')<>276 then bugmes();quit;end' 370 'if execstr(''try a=xxxx catch b=2;end'',''errcatch'')<>276 then bugmes();quit;end'
371 'r=exists(''a'')==1|exists(''b'')==1 '],'n') 371 'r=exists(''a'')==1|exists(''b'')==1 '],'n')
372 372
373if test() then bugmes();quit;end 373if test() then bugmes();quit;end
374 374
375comp(test);if test() then bugmes();quit;end 375comp(test);if test() then bugmes();quit;end
376 376
377 377
378deff('r=test()',[ 378deff('r=test()',[
379 'try a=xxxx catch b=2;end' 379 'try a=xxxx catch b=2;end'
380 'r=exists(''a'')==1|exists(''b'')==0' 380 'r=exists(''a'')==1|exists(''b'')==0'
381 'r=r|b<>2'],'n') 381 'r=r|b<>2'],'n')
382 382
383if execstr('test()','errcatch')<>276 then bugmes();quit;end 383if execstr('test()','errcatch')<>276 then bugmes();quit;end
384 384
385 385
386deff('r=test()',[ 386deff('r=test()',[
387 'if execstr(''try a=1 catch b=2;end'',''errcatch'')<>276 then bugmes();quit;end' 387 'if execstr(''try a=1 catch b=2;end'',''errcatch'')<>276 then bugmes();quit;end'
388 'r=exists(''a'')==1|exists(''b'')==1 '],'n') 388 'r=exists(''a'')==1|exists(''b'')==1 '],'n')
389 389
390if test() then bugmes();quit;end 390if test() then bugmes();quit;end
391 391
392comp(test);if test() then bugmes();quit;end 392comp(test);if test() then bugmes();quit;end
393 393
394 394
395deff('r=test()',[ 395deff('r=test()',[
396 'try a=1, catch b=2;end' 396 'try a=1, catch b=2;end'
397 'r=exists(''a'')==0|exists(''b'')==1' 397 'r=exists(''a'')==0|exists(''b'')==1'
398 'r=r|a<>1'],'n') 398 'r=r|a<>1'],'n')
399 399
400if execstr('r=test()','errcatch')<>0 then bugmes();quit;end 400if execstr('r=test()','errcatch')<>0 then bugmes();quit;end
401 401
402if r then bugmes();quit;end 402if r then bugmes();quit;end
403 403
404comp(test) 404comp(test)
405 405
406if execstr('r=test()','errcatch')<>0 then bugmes();quit;end 406if execstr('r=test()','errcatch')<>0 then bugmes();quit;end
407 407
408if r then bugmes();quit;end 408if r then bugmes();quit;end
409 409
410 410
411deff('r=test()',[ 411deff('r=test()',[
412 'try b=xxxx, catch a=1;end' 412 'try b=xxxx, catch a=1;end'
413 'r=exists(''a'')==0|exists(''b'')==1' 413 'r=exists(''a'')==0|exists(''b'')==1'
414 'r=r|a<>1'],'n') 414 'r=r|a<>1'],'n')
415 415
416if execstr('r=test()','errcatch')<>0 then bugmes();quit;end 416if execstr('r=test()','errcatch')<>0 then bugmes();quit;end
417 417
418if r then bugmes();quit;end 418if r then bugmes();quit;end
419 419
420comp(test) 420comp(test)
421 421
422if execstr('r=test()','errcatch')<>0 then bugmes();quit;end 422if execstr('r=test()','errcatch')<>0 then bugmes();quit;end
423 423
424if r then bugmes();quit;end 424if r then bugmes();quit;end
425 425
426 426
427 427
428deff('r=test()',[ 428deff('r=test()',[
429 'try a=1 catch b=2;end' 429 'try a=1 catch b=2;end'
430 'r=exists(''a'')==1|exists(''b'')==0' 430 'r=exists(''a'')==1|exists(''b'')==0'
431 'r=r|b<>2'],'n') 431 'r=r|b<>2'],'n')
432 432
433if execstr('test()','errcatch')<>276 then bugmes();quit;end 433if execstr('test()','errcatch')<>276 then bugmes();quit;end
434 434
435 435
436 436
437 437
438deff('r=test()',[ 438deff('r=test()',[
439 'try, a=xxxx;catch, b=2;end' 439 'try, a=xxxx;catch, b=2;end'
440 'r=exists(''a'')==1|exists(''b'')==0' 440 'r=exists(''a'')==1|exists(''b'')==0'
441 'r=r|b<>2'],'n') 441 'r=r|b<>2'],'n')
442 442
443if test() then bugmes();quit;end 443if test() then bugmes();quit;end
444 444
445comp(test);if test() then bugmes();quit;end 445comp(test);if test() then bugmes();quit;end
446 446
447 447
448deff('r=test()',[ 448deff('r=test()',[
449 'try, a=xxxx;catch;end' 449 'try, a=xxxx;catch;end'
450 'r=exists(''a'')==1'],'n') 450 'r=exists(''a'')==1'],'n')
451 451
452if test() then bugmes();quit;end 452if test() then bugmes();quit;end
453 453
454comp(test);if test() then bugmes();quit;end 454comp(test);if test() then bugmes();quit;end
455 455
456 456
457deff('r=test()',[ 457deff('r=test()',[
458 'try, a=1;end' 458 'try, a=1;end'
459 'r=exists(''a'')==0' 459 'r=exists(''a'')==0'
460 'r=r|a<>1'],'n') 460 'r=r|a<>1'],'n')
461 461
462if test() then bugmes();quit;end 462if test() then bugmes();quit;end
463 463
464comp(test);if test() then bugmes();quit;end 464comp(test);if test() then bugmes();quit;end
465 465
466 466
467 467
468deff('r=test()',[ 468deff('r=test()',[
469 'try, a=xxxx;end' 469 'try, a=xxxx;end'
470 'r=exists(''a'')==1'],'n') 470 'r=exists(''a'')==1'],'n')
471 471
472if test() then bugmes();quit;end 472if test() then bugmes();quit;end
473 473
474comp(test);if test() then bugmes();quit;end 474comp(test);if test() then bugmes();quit;end
475 475
476 476
477 477
478deff('r=test()',[ 478deff('r=test()',[
479 'try;catch, b=2;end' 479 'try;catch, b=2;end'
480 'r=exists(''b'')==1'],'n') 480 'r=exists(''b'')==1'],'n')
481 481
482if test() then bugmes();quit;end 482if test() then bugmes();quit;end
483 483
484comp(test);if test() then bugmes();quit;end 484comp(test);if test() then bugmes();quit;end
485 485
486 486
487deff('r=test()',[ 487deff('r=test()',[
488 'try;end' 488 'try;end'
489 'r=%f'],'n') 489 'r=%f'],'n')
490 490
491if test() then bugmes();quit;end 491if test() then bugmes();quit;end
492 492
493comp(test);if test() then bugmes();quit;end 493comp(test);if test() then bugmes();quit;end
494 494
495 495
496 496
497deff('r=test()',[ 497deff('r=test()',[
498 'try, if %t then a=xxxx,end;catch, b=2;end' 498 'try, if %t then a=xxxx,end;catch, b=2;end'
499 'r=exists(''a'')==1|exists(''b'')==0' 499 'r=exists(''a'')==1|exists(''b'')==0'
500 'r=r|b<>2'],'n') 500 'r=r|b<>2'],'n')
501 501
502if test() then bugmes();quit;end 502if test() then bugmes();quit;end
503 503
504comp(test);if test() then bugmes();quit;end 504comp(test);if test() then bugmes();quit;end
505 505
506 506
507//nested try catch 507//nested try catch
508 508
509deff('r=test()',[ 509deff('r=test()',[
510 'try ' 510 'try '
511 ' a=xxxx;' 511 ' a=xxxx;'
512 'catch ' 512 'catch '
513 ' try ' 513 ' try '
514 ' b=xxx,' 514 ' b=xxx,'
515 ' catch ' 515 ' catch '
516 ' b=2;' 516 ' b=2;'
517 ' end;' 517 ' end;'
518 ' b=b+1;' 518 ' b=b+1;'
519 'end' 519 'end'
520 'r=exists(''a'')==1|exists(''b'')==0' 520 'r=exists(''a'')==1|exists(''b'')==0'
521 'r=r|b<>3'],'n') 521 'r=r|b<>3'],'n')
522 522
523if test() then bugmes();quit;end 523if test() then bugmes();quit;end
524 524
525comp(test);if test() then bugmes();quit;end 525comp(test);if test() then bugmes();quit;end
526 526
527 527
528deff('r=test()',[ 528deff('r=test()',[
529 'try a=xxxx;catch try b=xxx,catch b=2;end;end' 529 'try a=xxxx;catch try b=xxx,catch b=2;end;end'
530 'r=exists(''a'')==1|exists(''b'')==0' 530 'r=exists(''a'')==1|exists(''b'')==0'
531 'r=r|b<>2'],'n') 531 'r=r|b<>2'],'n')
532 532
533if test() then bugmes();quit;end 533if test() then bugmes();quit;end
534 534
535comp(test);if test() then bugmes();quit;end 535comp(test);if test() then bugmes();quit;end
536 536
537 537
538deff('test()',['try a=2; try a=xxxx; catch a=a+1,end; catch;b=2;end']) 538deff('test()',['try a=2; try a=xxxx; catch a=a+1,end; catch;b=2;end'])
539 539
540fun2string(test) 540fun2string(test)
541 ans = 541 ans =
542 542
543!function []=ans ! 543!function []=ans !
544! ! 544! !
545! ! 545! try a = 2;try a = xxxx;catch a = a + 1,end,catch b = 2;end, !
546! ! 546! !
547! try a = 2;a = 2;try a = xxxx;catch a = a + 1,end,catch b = 2;end! 547!endfunction !
548! , ! 548
549! ! 549
550!endfunction ! 550deff('r=test()',[
551 551 'try a=2;try a=xxxx+33; catch a=a+1,end;catch;b=2;end'
552 552 'r=exists(''a'')==0|exists(''b'')==1'
553deff('r=test()',[ 553 'r=r|a<>3'],'n')
554 'try a=2;try a=xxxx+33; catch a=a+1,end;catch;b=2;end' 554
555 'r=exists(''a'')==0|exists(''b'')==1' 555if test() then bugmes();quit;end
556 'r=r|a<>3'],'n') 556
557 557comp(test);if test() then bugmes();quit;end
558if test() then bugmes();quit;end 558
559 559
560comp(test);if test() then bugmes();quit;end 560
561 561deff('r=test()',[
562 562 'try a=2;try a=xxxx; catch a=a+1,end;b=2;end'
563 563 'r=exists(''a'')==0|exists(''b'')==0'
564deff('r=test()',[ 564 'r=r|a<>3|b<>2'],'n')
565 'try a=2;try a=xxxx; catch a=a+1,end;b=2;end' 565
566 'r=exists(''a'')==0|exists(''b'')==0' 566if test() then bugmes();quit;end
567 'r=r|a<>3|b<>2'],'n') 567
568 568comp(test);if test() then bugmes();quit;end
569if test() then bugmes();quit;end 569
570 570
571comp(test);if test() then bugmes();quit;end 571deff('r=test()',[
572 572 'try a=2;if %t then try a=xxxx; catch a=a+1,end;end;b=2;end'
573 573 'r=exists(''a'')==0|exists(''b'')==0'
574deff('r=test()',[ 574 'r=r|a<>3|b<>2'],'n')
575 'try a=2;if %t then try a=xxxx; catch a=a+1,end;end;b=2;end' 575
576 'r=exists(''a'')==0|exists(''b'')==0' 576if test() then bugmes();quit;end
577 'r=r|a<>3|b<>2'],'n') 577
578 578comp(test);if test() then bugmes();quit;end
579if test() then bugmes();quit;end 579
580 580
581comp(test);if test() then bugmes();quit;end 581deff('r=test()',[
582 582 'try a=2;if %t then try a=xxxx; catch a=a+1,end;b=2;end;end'
583 583 'r=exists(''a'')==0|exists(''b'')==0'
584deff('r=test()',[ 584 'r=r|a<>3|b<>2'],'n')
585 'try a=2;if %t then try a=xxxx; catch a=a+1,end;b=2;end;end' 585
586 'r=exists(''a'')==0|exists(''b'')==0' 586if test() then bugmes();quit;end
587 'r=r|a<>3|b<>2'],'n') 587
588 588comp(test);if test() then bugmes();quit;end
589if test() then bugmes();quit;end 589
590 590
591comp(test);if test() then bugmes();quit;end 591deff('r=test()',[
592 592 'try a=2;try a=xxxx; catch if %t then a=a+1,end,end;b=2;end'
593 593 'r=exists(''a'')==0|exists(''b'')==0'
594deff('r=test()',[ 594 'r=r|a<>3|b<>2'],'n')
595 'try a=2;try a=xxxx; catch if %t then a=a+1,end,end;b=2;end' 595
596 'r=exists(''a'')==0|exists(''b'')==0' 596if test() then bugmes();quit;end
597 'r=r|a<>3|b<>2'],'n') 597
598 598comp(test);if test() then bugmes();quit;end
599if test() then bugmes();quit;end 599
600 600
601comp(test);if test() then bugmes();quit;end 601deff('r=test()',[
602 602 'if %t then try a=2;try a=xxxx; catch a=a+1,end;b=2;end;end'
603 603 'r=exists(''a'')==0|exists(''b'')==0'
604deff('r=test()',[ 604 'r=r|a<>3|b<>2'],'n')
605 'if %t then try a=2;try a=xxxx; catch a=a+1,end;b=2;end;end' 605
606 'r=exists(''a'')==0|exists(''b'')==0' 606if test() then bugmes();quit;end
607 'r=r|a<>3|b<>2'],'n') 607
608 608comp(test);if test() then bugmes();quit;end
609if test() then bugmes();quit;end 609
610 610
611comp(test);if test() then bugmes();quit;end 611deff('r=test()',[
612 612 'try a=2;try a=xxxx; catch for k=1:2,a=a+1,end,end;b=2;end'
613 613 'r=exists(''a'')==0|exists(''b'')==0'
614deff('r=test()',[ 614 'r=r|a<>4|b<>2'],'n')
615 'try a=2;try a=xxxx; catch for k=1:2,a=a+1,end,end;b=2;end' 615
616 'r=exists(''a'')==0|exists(''b'')==0' 616if test() then bugmes();quit;end
617 'r=r|a<>4|b<>2'],'n') 617
618 618comp(test);if test() then bugmes();quit;end
619if test() then bugmes();quit;end 619
620 620
621comp(test);if test() then bugmes();quit;end 621deff('r=test()',[
622 622 'for k=1:3,try a=2;if %t then try a=xxxx; catch a=a+1,end;end;b=2;end,end'
623 623 'r=exists(''a'')==0|exists(''b'')==0'
624deff('r=test()',[ 624 'r=r|a<>3|b<>2'],'n')
625 'for k=1:3,try a=2;if %t then try a=xxxx; catch a=a+1,end;end;b=2;end,end' 625
626 'r=exists(''a'')==0|exists(''b'')==0' 626if test() then bugmes();quit;end
627 'r=r|a<>3|b<>2'],'n') 627
628 628comp(test);if test() then bugmes();quit;end
629if test() then bugmes();quit;end 629
630 630
631comp(test);if test() then bugmes();quit;end 631deff('r=test()',[
632 632 'for k=1:3,try a=2;if %t then try a=xxxx; catch for k=1:2,a=a+1,end,end;end;b=2;end,end'
633 633 'r=exists(''a'')==0|exists(''b'')==0'
634deff('r=test()',[ 634 'r=r|a<>4|b<>2'],'n')
635 'for k=1:3,try a=2;if %t then try a=xxxx; catch for k=1:2,a=a+1,end,end;end;b=2;end,end' 635
636 'r=exists(''a'')==0|exists(''b'')==0' 636if test() then bugmes();quit;end
637 'r=r|a<>4|b<>2'],'n') 637
638 638comp(test);if test() then bugmes();quit;end
639if test() then bugmes();quit;end 639
640 640
641comp(test);if test() then bugmes();quit;end 641
642 642
643 643deff('r=test()',[
644 644 'b=0;while b==0,try a=2;if %t then try a=xxxx; catch a=a+1,end;end;b=2;end,end'
645 645 'r=exists(''a'')==0|exists(''b'')==0'
646deff('r=test()',[ 646 'r=r|a<>3|b<>2'],'n')
647 'b=0;while b==0,try a=2;if %t then try a=xxxx; catch a=a+1,end;end;b=2;end,end' 647
648 'r=exists(''a'')==0|exists(''b'')==0' 648if test() then bugmes();quit;end
649 'r=r|a<>3|b<>2'],'n') 649
650 650comp(test);if test() then bugmes();quit;end
651if test() then bugmes();quit;end 651
652 652
653comp(test);if test() then bugmes();quit;end 653
654 654deff('b=test1()',[
655 655 ' try '
656 656 ' b=xxx,'
657deff('b=test1()',[ 657 ' catch '
658 ' try ' 658 ' b=2;'
659 ' b=xxx,' 659 ' end;'],'n')
660 ' catch ' 660
661 ' b=2;' 661
662 ' end;'],'n') 662deff('r=test()',[
663 663 'try'
664 664 ' a=xxxx;'
665deff('r=test()',[ 665 'catch'
666 'try' 666 ' b=test1()'
667 ' a=xxxx;' 667 ' b=b+1'
668 'catch' 668 'end'
669 ' b=test1()' 669 'r=exists(''b'')==0'
670 ' b=b+1' 670 'r=r|b<>3'],'n')
671 'end' 671
672 'r=exists(''b'')==0' 672if test() then bugmes();quit;end
673 'r=r|b<>3'],'n') 673
674 674comp(test);if test() then bugmes();quit;end
675if test() then bugmes();quit;end 675
676 676comp(test1);if test() then bugmes();quit;end
677comp(test);if test() then bugmes();quit;end 677
678 678
679comp(test1);if test() then bugmes();quit;end
680
681