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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 103061 - (show annotations)
Sun Apr 7 06:55:59 2019 UTC (9 months, 3 weeks ago) by alexk
File size: 896 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
6 feature {NONE} -- Creation
7
8 make is
9 -- Run test.
10 local
11 h: HASH_TABLE [INTEGER, INTEGER]
12 p: PROCEDURE
13 f: FUNCTION [INTEGER]
14 i: PROCEDURE [INTEGER]
15 do
16 $REGISTER_TYPES
17 create h.make (1)
18 p := agent h.put (1, 2)
19 p.call (Void)
20 io.put_integer (h.item (2))
21 io.put_new_line
22 p := agent h.put (2, 3)
23 p := agent p.call (Void)
24 p.call (Void)
25 io.put_integer (h.item (3))
26 io.put_new_line
27 h.put (3, 4)
28 f := agent h.item (4)
29 io.put_integer (f.item (Void))
30 io.put_new_line
31 h.put (4, 5)
32 f := agent h.item (5)
33 f := agent f.item (Void)
34 io.put_integer (f.item (Void))
35 io.put_new_line
36 i := agent h.put (?, 6)
37 i.call ([5])
38 io.put_integer (h.item (6))
39 io.put_new_line
40 f := agent {HASH_TABLE [INTEGER, INTEGER]}.item (7)
41 h.put (6, 7)
42 io.put_integer (f.item ([h]))
43 io.put_new_line
44 end
45
46 end

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23