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

Contents of /trunk/eweasel/tests/except017/test1.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: 1064 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: "Objects that ..."
3 author: ""
4 date: "$Date$"
5 revision: "$Revision$"
6
7 class
8 TEST1
9
10 inherit
11 EXCEPTIONS
12
13 feature
14
15 test1_test is
16 do
17 test1_test1
18 rescue
19 print (original_exception)
20 print ("%N")
21 print (original_tag_name)
22 print ("%N")
23 print (original_recipient_name)
24 print ("%N")
25 print (original_class_name)
26 print ("%N")
27
28 print (exception)
29 print ("%N")
30 print (tag_name)
31 print ("%N")
32 print (recipient_name)
33 print ("%N")
34 print (class_name)
35 print ("%N")
36 print ("---------------------------------%N")
37 do_nothing
38 end
39
40 test1_test1 is
41 do
42 raise ("my test")
43 rescue
44 print (original_exception)
45 print ("%N")
46 print (original_tag_name)
47 print ("%N")
48 print (original_recipient_name)
49 print ("%N")
50 print (original_class_name)
51 print ("%N")
52
53 print (exception)
54 print ("%N")
55 print (tag_name)
56 print ("%N")
57 print (recipient_name)
58 print ("%N")
59 print (class_name)
60 print ("%N")
61 print ("---------------------------------%N")
62 do_nothing
63 end
64
65 end

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23