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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 85950 - (show annotations)
Tue Mar 22 05:52:52 2011 UTC (8 years, 7 months ago) by alexk
File size: 758 byte(s)
Added test cases for once functions of an expanded type.
1 class TEST
2
3 create
4 make
5
6 feature {NONE} -- Creation
7
8 make
9 local
10 b: BOOLEAN
11 t: TEST
12 do
13 t := f1
14 t := f2
15 t := f3
16 t := f4
17 t := f5
18 b := g1
19 b := g2
20 b := g3
21 b := g4
22 b := g5
23 end
24
25 feature -- Access
26
27 f1: TEST
28 once
29 Result := Current
30 end
31
32 f2: TEST
33 once ("OBJECT")
34 Result := Current
35 end
36
37 f3: TEST
38 once ("THREAD")
39 Result := Current
40 end
41
42 f4: TEST
43 once ("PROCESS")
44 Result := Current
45 end
46
47 f5: TEST
48 note
49 once_status: "global"
50 once
51 Result := Current
52 end
53
54 g1: BOOLEAN
55 once
56 end
57
58 g2: BOOLEAN
59 once ("OBJECT")
60 end
61
62 g3: BOOLEAN
63 once ("THREAD")
64 end
65
66 g4: BOOLEAN
67 once ("PROCESS")
68 end
69
70 g5: BOOLEAN
71 note
72 once_status: "global"
73 once
74 end
75
76 end

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23