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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 103061 - (show annotations)
Sun Apr 7 06:55:59 2019 UTC (8 months, 1 week ago) by alexk
File size: 514 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 TEST
2
3 create
4 make
5 feature
6
7 make
8 local
9 p: TEST_PROC
10 do
11 create p.make (agent (i: INTEGER) do io.put_integer (i); io.put_new_line end)
12 p.call ([]) -- OK in workbench and finalized modes
13 bar.call ([]) -- OK in workbench mode; fails in finalized mode
14 foo (p) -- OK in workbench mode; fails in finalized mode
15 end
16
17 bar: PROCEDURE
18 do
19 create {TEST_PROC} Result.make (agent (i: INTEGER) do io.put_integer (i); io.put_new_line end)
20 end
21
22 foo (p: PROCEDURE)
23 do
24 p.call ([])
25 end
26
27 end

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23