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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 98647 - (show annotations)
Thu Apr 28 05:36:44 2016 UTC (3 years, 5 months ago) by alexk
File size: 718 byte(s)
Removed unneeded explicit inheritance from ANY.
1 note
2 description: "[
3 Create processors without using them so that
4 a next processor is started by the current
5 processor that is started by a previous one.
6 The total number of created processors is
7 higher than the maximum number of the
8 processors that can be created at the
9 same time.
10 ]"
11
12 class TEST
13
14 create
15 default_create,
16 make
17
18 feature {NONE} -- Creation
19
20 make
21 -- Run test.
22 do
23 execute (10_000)
24 end
25
26 feature {TEST} -- Run
27
28 execute (i: NATURAL_64)
29 -- Start one more processor with index `i - 1' unless `i = 0'.
30 do
31 if i /= 0 then
32 run (create {separate TEST}, i - 1)
33 end
34 end
35
36 run (t: separate TEST; i: NATURAL_64)
37 -- Run `t.execute (i)'.
38 do
39 t.execute (i)
40 end
41
42 end

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23