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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 65297 - (show annotations)
Thu Nov 30 20:22:33 2006 UTC (13 years ago) by manus
File size: 960 byte(s)
Moved from trunk/Src/eweasel to trunk/eweasel so that a simple checkout of the source code is not penalized by the lenghty process of checking out all the tests of eweasel.
1 class TEST
2
3 inherit
4
5 $C1 A select ad end
6
7 A
8 rename
9 ad as dd
10 end
11
12 $C2 B select
13 $C2 ba,
14 $C5 bb,
15 $C2 bd
16 $C2 end
17
18 B
19 rename
20 ba as tba,
21 $C5 bb as tbb,
22 bd as tbd
23 end
24
25 create
26 make
27
28 feature
29
30 make is
31 local
32 i: INTEGER
33 do
34 from
35 i := 1
36 until
37 i >= 10
38 loop
39 inspect i
40 when dd then
41 if i = dd then
42 io.put_string ("Test 1: OK.")
43 else
44 io.put_string ("Test 1: Failed.")
45 end
46 io.put_new_line
47 i := 10
48 else
49 end
50 i := i + 1
51 end
52 if i = 10 then
53 io.put_string ("Test 1: Failed.")
54 io.put_new_line
55 end
56 from
57 i := 1
58 until
59 i >= 10
60 loop
61 inspect i
62 when tbd then
63 if i = tbd then
64 io.put_string ("Test 2: OK.")
65 else
66 io.put_string ("Test 2: Failed.")
67 end
68 io.put_new_line
69 i := 10
70 else
71 end
72 i := i + 1
73 end
74 if i = 10 then
75 io.put_string ("Test 2: Failed.")
76 io.put_new_line
77 end
78 end
79
80 end

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23