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

Contents of /trunk/eweasel/tests/final013/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: 785 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 class TEST
8 creation
9 make
10 feature
11
12 make (args: ARRAY [STRING]) is
13 local
14 k, count: INTEGER
15 weasel: ARRAY [TEST1];
16 wimp, temp: TEST1;
17 do
18 count := args.item (1).to_integer;
19 !!weasel.make (1, count);
20 from
21 k := weasel.lower;
22 until
23 k > weasel.upper
24 loop
25 weasel.put (wimp, k);
26 k := k + 1;
27 end
28 io.put_string ("After loop%N");
29 wimp.set_a (47);
30 io.put_string ("Set a%N");
31 temp := weasel.item (1);
32 io.put_string ("Got item 1%N");
33 io.put_double (temp.a); io.new_line;
34 io.put_double (wimp.a); io.new_line;
35 end;
36
37 end

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23