/[eiffelstudio]/trunk/eweasel/tests/except013/a.e
ViewVC logotype

Contents of /trunk/eweasel/tests/except013/a.e

Parent Directory Parent Directory | Revision Log Revision Log


Revision 72352 - (show annotations)
Tue Feb 19 11:26:46 2008 UTC (11 years, 11 months ago) by tedf
File size: 771 byte(s)
Fixed test failures that were caused by new layout of ELKS.
1 Class A
2
3 create
4 f
5
6 feature
7
8 f is
9 local
10 retried: BOOLEAN
11 l_exception_1, l_exception_2: MY_EXCEPTION
12 l_mnger: EXCEPTION_MANAGER
13 do
14 if not retried then
15 create l_exception_1
16 create l_exception_2
17 l_mnger := (create {EXCEPTION_MANAGER_FACTORY}).exception_manager
18 l_mnger.ignore ({MY_EXCEPTION})
19 if l_exception_1.is_ignored then
20 print ("True%N")
21 else
22 print ("False%N")
23 end
24 l_exception_1.raise
25 l_mnger.catch ({MY_EXCEPTION})
26 if not l_exception_1.is_ignored then
27 print ("True%N")
28 else
29 print ("False%N")
30 end
31 l_exception_2.raise
32 end
33 rescue
34 if l_exception_2 = l_mnger.last_exception then
35 print ("True%N")
36 else
37 print ("False%N")
38 end
39 retried := True
40 retry
41 end
42
43 end

Properties

Name Value
svn:eol-style native
svn:keywords Author Date ID Revision

  ViewVC Help
Powered by ViewVC 1.1.23