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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 100706 - (show annotations)
Fri Sep 1 10:00:17 2017 UTC (23 months, 2 weeks ago) by alexk
File size: 1487 byte(s)
Added a missing inheritance link.
1 class TEST
2
3 inherit
4 A
5
6 create
7 make
8
9 feature
10
11 make
12 -- Run test.
13 do
14 test (Current)
15 end
16
17 feature -- Test
18
19 $(COMMENT_OUT_CHILD)ca: detachable ANY
20 -- A class feature for testing.
21
22 test (fa: ANY)
23 -- Go over all test cases.
24 local
25 fl: ANY
26 do
27 if attached Current as fo then
28 across <<>> as fc loop
29 separate (create {separate ANY}) as ft do
30 (agent (aa: ANY)
31 local
32 al: ANY
33 do
34 if attached Current as ao then
35 across <<>> as ac loop
36 separate (create {separate ANY}) as at do
37 (agent
38 do
39 (agent
40 do
41 if attached Current as pa then end -- VUOT(1): parent
42 if attached Current as ca then end -- VUOT(1): child
43 across <<>> as pa loop end -- VOIT(2): parent
44 across <<>> as ca loop end -- VOIT(2): child
45 separate (create {separate ANY}) as pa do end -- FRESH_IDENTIFIER: parent
46 separate (create {separate ANY}) as ca do end -- FRESH_IDENTIFIER: child
47 ;(agent (pa: ANY) do end).call (Current) -- VRFA: parent
48 ;(agent (ca: ANY) do end).call (Current) -- VRFA: child
49 ;(agent local pa: ANY do end).call -- VRLE(1): parent
50 ;(agent local ca: ANY do end).call -- VRLE(1): child
51 end).call
52 end).call
53 end
54 end
55 end
56 end).call (Current)
57 end
58 end
59 end
60 end
61
62 end

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23