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

Contents of /trunk/eweasel/tests/exec232/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: 677 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
2 TEST
3 create
4 make
5
6 feature {NONE} -- Creation
7
8 make is
9 -- Run test.
10 do
11 if test (1) /= 4 then
12 io.put_string ("Failed")
13 io.put_new_line
14 end
15 end
16
17 feature {NONE} -- Tests
18
19 k: INTEGER
20
21 test (i: INTEGER): INTEGER is
22 local
23 j: INTEGER
24 do
25 io.put_integer (i)
26 io.put_new_line
27 Result.set_item (2)
28 i.set_item (Result)
29 j.set_item (i)
30 k.set_item (j)
31 io.put_integer (k)
32 io.put_new_line
33 Result.deep_copy (3)
34 i.deep_copy (Result)
35 j.deep_copy (i)
36 k.deep_copy (j)
37 io.put_integer (k)
38 io.put_new_line
39 Result.copy (4)
40 i.copy (Result)
41 j.copy (i)
42 k.copy (j)
43 io.put_integer (k)
44 io.put_new_line
45 end
46
47 end

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23