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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 83158 - (show annotations)
Thu May 13 14:04:03 2010 UTC (9 years, 8 months ago) by alexk
File size: 562 byte(s)
Extended test by using QAT with deferred type as an actual generic.
1 class TEST
2
3 create
4 make
5
6 feature {NONE} -- Creation
7
8 make
9 local
10 i1: like {COMPARABLE}.is_less.io
11 i2: like f.is_less.io
12 i3: like {TEST}.f.is_less.io
13 do
14 create i1
15 i1.put_string ("TEST1: OK")
16 i1.put_new_line
17 create i2
18 i2.put_string ("TEST2: OK")
19 i2.put_new_line
20 create i3
21 i3.put_string ("TEST3: OK")
22 i3.put_new_line
23 create {ARRAYED_LIST [like list.item]} list.make (5)
24 i3.put_string ("TEST4: OK")
25 i3.put_new_line
26 end
27
28 feature {NONE} -- Test
29
30 f: detachable COMPARABLE
31
32 list: LIST [TUPLE [TEST, NATURAL_8]]
33
34 end

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23