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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 65297 - (show annotations)
Thu Nov 30 20:22:33 2006 UTC (13 years, 1 month ago) by manus
File size: 918 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 do
14 try (args.item (1).to_integer);
15 io.putstring (x.weasel); io.new_line;
16 waste_memory (args.item (1).to_integer);
17 io.putstring (x.weasel); io.new_line;
18 end;
19
20 try (limit: INTEGER) is
21 local
22 source: TEST1;
23 do
24 !!source;
25 source.sub_object.set_weasel ("weasel");
26 x ?= source.sub_object;
27 if x /= Void then
28 io.putstring (x.weasel); io.new_line;
29 else
30 io.putstring ("Void%N");
31 end
32 end;
33
34 x: TEST2;
35
36 waste_memory (limit: INTEGER) is
37 local
38 k: INTEGER;
39 s: STRING;
40 do
41 from
42 k := 1;
43 until
44 k > limit
45 loop
46 !!s.make (100);
47 s.fill_blank;
48 k := k + 1;
49 end
50 end
51
52 end

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23