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

Contents of /trunk/eweasel/tests/freez010/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: 920 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 r: RANDOM;
15 k, seed, item_count, n: INTEGER;
16 str: STRING;
17 temp: like Current;
18 do
19 io.putstring ("Starting%N");
20 b := bitmap;
21 b := not b;
22 seed := args.item (1).to_integer;
23 item_count := args.item (2).to_integer;
24 from
25 !!r.set_seed (seed);
26 r.start;
27 k := 1;
28 until
29 k > 100000
30 loop
31 if (k \\ 1000) = 0 then
32 io.putint (k); io.new_line;
33 end;
34 n := r.item \\ item_count + 1;
35 check
36 valid_length: 1 <= n and n <= item_count;
37 end
38 !!str.make (n);
39 temp := deep_twin
40 r.forth;
41 k := k + 1;
42 end
43 end
44
45 b: BIT_REF;
46
47 bitmap: BIT 180 is
48 do
49 end
50
51 end
52

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23