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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 65297 - (show annotations)
Thu Nov 30 20:22:33 2006 UTC (13 years, 2 months ago) by manus
File size: 801 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 inherit
9 MEMORY
10 creation
11 make
12 feature
13 make (args: ARRAY [STRING]) is
14 local
15 list: ARRAYED_LIST [STRING];
16 k, limit: INTEGER;
17 s: STRING
18 gc: GC_INFO
19 do
20 enable_time_accounting
21 s := "weasels and ermines and stoats"
22 limit := args.item (1).to_integer
23 from
24 !!list.make_filled (limit)
25 k := 1
26 until
27 k > limit
28 loop
29 list.put_i_th ("weasels and ermines and stoats", k);
30 k := k + 1;
31 end;
32 gc := gc_statistics (Incremental_collector)
33 print (gc.collected < 0); io.new_line
34 print (gc.collected_average < 0); 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