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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 100703 - (show annotations)
Fri Sep 1 08:03:24 2017 UTC (2 years ago) by alexk
File size: 4296 byte(s)
Reverted the previous commit in favor of a new eweasel test.
1 class TEST
2
3 create
4 make
5
6 feature
7
8 make
9 -- Run test.
10 do
11 ca := Current
12 test (Current)
13 end
14
15 feature -- Test
16
17 ca: ANY
18 -- A class feature for testing.
19
20 test (fa: ANY)
21 -- Go over all test cases.
22 local
23 fl: ANY
24 do
25 if attached Current as fo then
26 across <<>> as fc loop
27 separate (create {separate ANY}) as ft do
28 (agent (aa: ANY)
29 local
30 al: ANY
31 do
32 if attached Current as ao then
33 across <<>> as ac loop
34 separate (create {separate ANY}) as at do
35 (agent
36 do
37 (agent
38 do
39 if attached Current as ca then end -- VUOT(1)
40 if attached Current as fa then end -- VUOT(1)
41 if attached Current as fl then end -- VUOT(1)
42 if attached Current as fo then end -- VUOT(1)
43 if attached Current as fc then end -- VUOT(1)
44 if attached Current as ft then end -- VUOT(1)
45 if attached Current as aa then end -- VUOT(1)
46 if attached Current as al then end -- VUOT(1)
47 if attached Current as ao then end -- VUOT(1)
48 if attached Current as ac then end -- VUOT(1)
49 if attached Current as at then end -- VUOT(1)
50 across <<>> as ca loop end -- VOIT(2)
51 across <<>> as fa loop end -- VOIT(2)
52 across <<>> as fl loop end -- VOIT(2)
53 across <<>> as fo loop end -- VOIT(2)
54 across <<>> as fc loop end -- VOIT(2)
55 across <<>> as ft loop end -- VOIT(2)
56 across <<>> as aa loop end -- VOIT(2)
57 across <<>> as al loop end -- VOIT(2)
58 across <<>> as ao loop end -- VOIT(2)
59 across <<>> as ac loop end -- VOIT(2)
60 across <<>> as at loop end -- VOIT(2)
61 separate (create {separate ANY}) as ca do end -- FRESH_IDENTIFIER
62 separate (create {separate ANY}) as fa do end -- FRESH_IDENTIFIER
63 separate (create {separate ANY}) as fl do end -- FRESH_IDENTIFIER
64 separate (create {separate ANY}) as fo do end -- FRESH_IDENTIFIER
65 separate (create {separate ANY}) as fc do end -- FRESH_IDENTIFIER
66 separate (create {separate ANY}) as ft do end -- FRESH_IDENTIFIER
67 separate (create {separate ANY}) as aa do end -- FRESH_IDENTIFIER
68 separate (create {separate ANY}) as al do end -- FRESH_IDENTIFIER
69 separate (create {separate ANY}) as ao do end -- FRESH_IDENTIFIER
70 separate (create {separate ANY}) as ac do end -- FRESH_IDENTIFIER
71 separate (create {separate ANY}) as at do end -- FRESH_IDENTIFIER
72 ;(agent (ca: ANY) do end).call (Current) -- VRFA
73 ;(agent (fa: ANY) do end).call (Current) -- VPIR(1)
74 ;(agent (fl: ANY) do end).call (Current) -- VPIR(1)
75 ;(agent (fo: ANY) do end).call (Current) -- VPIR(1)
76 ;(agent (fc: ANY) do end).call (Current) -- VPIR(1)
77 ;(agent (ft: ANY) do end).call (Current) -- VPIR(1)
78 ;(agent (aa: ANY) do end).call (Current) -- VPIR(1)
79 ;(agent (al: ANY) do end).call (Current) -- VPIR(1)
80 ;(agent (ao: ANY) do end).call (Current) -- VPIR(1)
81 ;(agent (ac: ANY) do end).call (Current) -- VPIR(1)
82 ;(agent (at: ANY) do end).call (Current) -- VPIR(1)
83 ;(agent local ca: ANY do end).call -- VRLE(1)
84 ;(agent local fa: ANY do end).call -- VPIR(1)
85 ;(agent local fl: ANY do end).call -- VPIR(1)
86 ;(agent local fo: ANY do end).call -- VPIR(1)
87 ;(agent local fc: ANY do end).call -- VPIR(1)
88 ;(agent local ft: ANY do end).call -- VPIR(1)
89 ;(agent local aa: ANY do end).call -- VPIR(1)
90 ;(agent local al: ANY do end).call -- VPIR(1)
91 ;(agent local ao: ANY do end).call -- VPIR(1)
92 ;(agent local ac: ANY do end).call -- VPIR(1)
93 ;(agent local at: ANY do end).call -- VPIR(1)
94 end).call
95 end).call
96 end
97 end
98 end
99 end).call (Current)
100 end
101 end
102 end
103 end
104
105 end

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23