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

Contents of /trunk/eweasel/tests/valid024/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: 793 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
2 --| Copyright (c) 1993-2006 University of Southern California and contributors.
3 --| All rights reserved.
4 --| Your use of this work is governed under the terms of the GNU General
5 --| Public License version 2.
6
7 -- To reproduce error:
8 -- Compile class as is. Compiler accepts it even though
9 -- equivalent dot form of `next # 3' is
10 -- `next.pound (3)', which is not export valid.
11 -- (To verify this, uncomment out both commented lines in body
12 -- of `make' and run es3).
13
14 class
15 TEST
16 creation
17 make
18 feature
19
20 make is
21 do
22 io.putint (pound (3));
23 -- io.putint (Current.pound (3));
24 -- io.putint (next.pound (3));
25 io.putint (Current # 3);
26 io.putint (next # 3);
27 end;
28
29 feature {NONE}
30
31 pound, infix "#" (n: INTEGER): INTEGER is
32 do
33 Result := 47;
34 end;
35
36 next: TEST;
37 end
38

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23