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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 73046 - (show annotations)
Wed Apr 16 16:56:04 2008 UTC (11 years, 9 months ago) by manus
File size: 1031 byte(s)
Added new test showing that we are not properly doing our code generation for polymorphic wrappers.

1 class TEST
2 create
3 make
4
5 feature {NONE} -- Creation
6
7 make
8 local
9 t8: TEST8
10 t7: TEST7
11 t6: TEST6
12 t5: TEST5
13 t4: TEST4
14 t2: TEST2 [REAL_64]
15 t3: TEST3 [INTEGER]
16 t1: TEST1
17 do
18 create t8
19 create t7
20 create t5
21 create t4
22
23 -- Checking polymorphism on `t8'
24 print (t8.query (6))
25 io.put_new_line
26
27 t1 := t8
28 print (t1.query (6))
29 io.put_new_line
30
31 t6 := t8
32 print (t6.query (6))
33 io.put_new_line
34
35 -- Checking polymorphism on `t7'
36 print (t7.query (6))
37 io.put_new_line
38
39 t1 := t7
40 print (t1.query (6))
41 io.put_new_line
42
43 t6 := t7
44 print (t6.query (6))
45 io.put_new_line
46
47 -- Checking polymorphism on `t5'
48 print (t5.query (6))
49 io.put_new_line
50
51 t1 := t5
52 print (t1.query (6))
53 io.put_new_line
54
55 t3 := t5
56 print (t3.query (6))
57 io.put_new_line
58
59 -- Checking polymorphism on `t4'
60 print (t4.query (6))
61 io.put_new_line
62
63 t1 := t4
64 print (t1.query (6))
65 io.put_new_line
66
67 t2 := t4
68 print (t2.query (6))
69 io.put_new_line
70 end
71
72 end

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23