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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 83474 - (show annotations)
Wed Jun 9 03:22:33 2010 UTC (9 years, 3 months ago) by tedf
File size: 1024 byte(s)
Modified names of the routines. Otherwise it will fail on .NET.
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 THREAD_CONTROL
10 MEMORY
11 creation
12 make
13
14 feature
15
16 make (args: ARRAY [STRING]) is
17 local
18 depth, count: INTEGER
19 worker1: WORKER1
20 worker2: WORKER2
21 worker3: WORKER3
22 list: ARRAYED_LIST [STRING]
23 do
24 depth := args.item (1).to_integer
25 count := args.item (2).to_integer
26 create list.make (2)
27 list.extend ("stoat_test")
28 list.extend ("ermine_test")
29 create worker1.make (depth, count, "weasel_test", list)
30 create list.make (2)
31 list.extend ("weasel_test")
32 list.extend ("ermine_test")
33 create worker2.make (depth, count, "stoat_test", list)
34 create list.make (2)
35 list.extend ("weasel_test")
36 list.extend ("stoat_test")
37 create worker3.make (depth, count, "ermine_test", list)
38 worker1.launch
39 worker2.launch
40 worker3.launch
41 join_all
42 end;
43
44 end
45

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23