/[eiffelstudio]/trunk/eweasel/tests/agent013/test_proc.e
ViewVC logotype

Contents of /trunk/eweasel/tests/agent013/test_proc.e

Parent Directory Parent Directory | Revision Log Revision Log


Revision 103061 - (show annotations)
Sun Apr 7 06:55:59 2019 UTC (5 months, 2 weeks ago) by alexk
File size: 647 byte(s)
Updated ECFs to enable class removal optimization when a test involves finalization.
Updated source code to use contemporary routine type declarations.

1 class
2 TEST_PROC [OPEN_ARGS -> TUPLE create default_create end]
3
4 inherit
5 PROCEDURE [OPEN_ARGS]
6 redefine
7 call
8 end
9
10 create
11 make
12
13 feature -- Initialization
14
15 make (a_unbound_procedure: like unbound_procedure)
16 do
17 unbound_procedure := a_unbound_procedure
18 unbound_arguments := unbound_procedure.empty_operands
19
20 is_target_closed := True
21 open_count := empty_operands.count
22 end
23
24 feature -- Access
25
26 unbound_arguments: TUPLE
27 unbound_procedure: PROCEDURE
28
29 feature -- Basic operations
30
31 call alias "()" (args: OPEN_ARGS)
32 -- <Precursor>
33 do
34 unbound_arguments [1] := 47
35 unbound_procedure.call (unbound_arguments)
36 end
37 end
38

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23