/[eiffelstudio]/trunk/eweasel/tests/except017/test.e
ViewVC logotype

Contents of /trunk/eweasel/tests/except017/test.e

Parent Directory Parent Directory | Revision Log Revision Log


Revision 73120 - (show annotations)
Sun Apr 20 14:18:34 2008 UTC (11 years, 5 months ago) by tedf
File size: 1254 byte(s)
Added another test to clear correct behaviors of some queries of {EXCEPTIONS}. 6.1 did not act like this. If the behavior were approved later, it would be a breaking change.
Fixed typo of except016.
1 indexing
2 description : "System's root class"
3 date: "$Date$"
4 revision: "$Revision$"
5
6 class
7 TEST
8
9 inherit
10 EXCEPTIONS
11
12 create
13 make
14
15 feature -- Initialization
16
17 make is
18 -- Creation procedure.
19 local
20 re: BOOLEAN
21 do
22 if not re then
23 test
24 end
25 rescue
26 re := true
27 retry
28 end
29
30 test is
31 do
32 test2
33 rescue
34 print (original_exception)
35 print ("%N")
36 print (original_tag_name)
37 print ("%N")
38 print (original_recipient_name)
39 print ("%N")
40 print (original_class_name)
41 print ("%N")
42
43 print (exception)
44 print ("%N")
45 print (tag_name)
46 print ("%N")
47 print (recipient_name)
48 print ("%N")
49 print (class_name)
50 print ("%N")
51 print ("---------------------------------%N")
52 do_nothing
53 end
54
55 test2 is
56 local
57 c: TEST1
58 do
59 create c
60 c.test1_test
61 rescue
62 print (original_exception)
63 print ("%N")
64 print (original_tag_name)
65 print ("%N")
66 print (original_recipient_name)
67 print ("%N")
68 print (original_class_name)
69 print ("%N")
70
71 print (exception)
72 print ("%N")
73 print (tag_name)
74 print ("%N")
75 print (recipient_name)
76 print ("%N")
77 print (class_name)
78 print ("%N")
79 print ("---------------------------------%N")
80 do_nothing
81 end
82
83
84
85 end -- class ROOT_CLASS

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23