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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 66172 - (show annotations)
Wed Jan 24 13:48:20 2007 UTC (12 years, 7 months ago) by jasonw
File size: 362 byte(s)
Added test to check if a basic type passed into a feature with ANY as formal parameter type can be used in agent with an open operand of the same basic type.
1 class
2 TEST
3
4 create
5 make
6
7 feature -- Initialization
8
9 make is
10 local
11 l_int: INTEGER
12 do
13 l_int := 1
14 goo (l_int)
15 end
16
17 goo (a_any: ANY) is
18 local
19 l_agent: PROCEDURE [ANY, TUPLE [ANY]]
20 do
21 l_agent := agent foo
22 l_agent.call ([a_any])
23 end
24
25 foo (a_integer: INTEGER) is
26 do
27 io.put_integer (a_integer)
28 io.put_string ("%N")
29 end
30
31 end
32

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23