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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 103061 - (hide annotations)
Sun Apr 7 06:55:59 2019 UTC (9 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 manus 82134 class
2 alexk 103061 TEST_PROC [OPEN_ARGS -> TUPLE create default_create end]
3 manus 82134
4     inherit
5 alexk 103061 PROCEDURE [OPEN_ARGS]
6 manus 82134 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 alexk 103061 unbound_procedure: PROCEDURE
28 manus 82134
29     feature -- Basic operations
30    
31 manus 93408 call alias "()" (args: OPEN_ARGS)
32 manus 82134 -- <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