/[eiffelstudio]/trunk/eweasel/tests/attach102/test2.e
ViewVC logotype

Contents of /trunk/eweasel/tests/attach102/test2.e

Parent Directory Parent Directory | Revision Log Revision Log


Revision 92556 - (show annotations)
Mon May 20 19:08:33 2013 UTC (6 years, 8 months ago) by alexk
File size: 815 byte(s)
Adapted test to separate reports of errors.
1 class TEST
2
3 inherit
4 A
5
6 create
7 make,
8 make_self_qualified,
9 make_self_unqualified
10
11 feature {NONE}
12
13 make
14 -- Create objects that need to initialize their attributes.
15 local
16 t: TEST
17 do
18 create t.make_self_qualified
19 create t.make_self_unqualified
20 create a
21 end
22
23 feature {NONE} -- Initialization
24
25 make_self_unqualified
26 -- Fulfil targeted conditions for `Current' before initializing all the attributes.
27 do
28 access (Current) -- VEVI
29 make
30 end
31
32 make_self_qualified
33 -- Fulfil targeted conditions for `Current' before initializing all the attributes.
34 local
35 t: TEST
36 do
37 create t.make
38 t.access (Current) -- VEVI
39 make
40 end
41
42 feature -- Access
43
44 access (x: ANY)
45 -- Make sure `x' is targeted.
46 do
47 x.do_nothing
48 end
49
50 feature {NONE} -- Access
51
52 a: ANY
53 -- Storage.
54
55 end

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23