/[eiffelstudio]/trunk/eweasel/tests/scoop036/application.e
ViewVC logotype

Contents of /trunk/eweasel/tests/scoop036/application.e

Parent Directory Parent Directory | Revision Log Revision Log


Revision 93184 - (show annotations)
Tue Oct 29 21:27:31 2013 UTC (6 years, 2 months ago) by king
File size: 1095 byte(s)
Added test for uncontrolled detection with nested request chains
1 note
2 description : "scoop_testbench application root class"
3 date : "$Date$"
4 revision : "$Revision$"
5
6 class
7 APPLICATION
8
9 inherit
10 ARGUMENTS
11
12 create
13 make
14
15 feature {NONE} -- Initialization
16
17 path : LINKED_LIST[separate VERTEX]
18 sorted_path : LINKED_LIST[separate VERTEX]
19
20 make
21 -- Run application.
22 local
23 sep_v1, sep_v2, sep_v3 : separate VERTEX
24 do
25 create sep_v1.make (1, 0, 0)
26 create sep_v2.make (2, 0, 0)
27 create sep_v3.make (3, 0, 0)
28
29 create path.make
30 create sorted_path.make
31
32 path.extend (sep_v2)
33 path.extend (sep_v3)
34 path.extend (sep_v1)
35
36 sorted_path.extend(sep_v1)
37 sorted_path.extend(sep_v2)
38 sorted_path.extend(sep_v3)
39
40 recursive_foo(1, sep_v1)
41 end
42
43 recursive_foo(n:INTEGER; v: separate VERTEX)
44 local
45 i, d : INTEGER
46 do
47 d := v.dummy(10)
48 if n < sorted_path.count then
49 recursive_foo(n+1, sorted_path.i_th (n+1))
50 end
51 from i := 1
52 until i > path.count
53 loop
54 use_vertex(path.i_th (i))
55 i := i + 1
56 end
57 end
58
59 use_vertex(v : separate VERTEX)
60 local
61 i:INTEGER
62 do
63 i := v.dummy (100)
64 end
65 end

Properties

Name Value
svn:eol-style native
svn:keywords author date id revision

  ViewVC Help
Powered by ViewVC 1.1.23