/[eiffelstudio]/trunk/eweasel/tests/tree004/test1.e
ViewVC logotype

Contents of /trunk/eweasel/tests/tree004/test1.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: 461 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 TEST1 [G]
2 inherit
3 ARRAYED_TREE [G]
4 redefine
5 make, node_is_equal
6 end
7
8 create
9 make
10
11 feature {NONE} -- Initialization
12
13 make (n: INTEGER; v: like item) is
14 do
15 Precursor (n, v)
16 s := "Manu"
17 val := 19
18 end
19
20 feature -- Access
21
22 s: STRING
23 val: INTEGER
24
25 feature -- Comparison
26
27 node_is_equal (other: like Current): BOOLEAN
28 -- Is other equal to Current?
29 do
30 Result := Precursor (other) and then val = other.val and s = other.s
31 end
32 end

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23