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

Annotation of /trunk/eweasel/tests/melt107/test.e

Parent Directory Parent Directory | Revision Log Revision Log


Revision 96025 - (hide annotations)
Fri Oct 31 15:41:08 2014 UTC (5 years, 3 months ago) by manus
File size: 263 byte(s)
Added a new test showing that if we add a new type which forces the TYPE class to add a new generic derivation which will force the class to be melted then the melted code for {TYPE}.default is not valid in the case of a detachable reference type.

1 manus 96025 class TEST
2    
3     create
4     make
5    
6     feature {NONE} -- Creation
7    
8     make
9     local
10     l_type: TYPE [detachable ANY]
11     do
12     l_type := {detachable ANY}
13     if not l_type.has_default or else l_type.default /= Void then
14     io.put_string ("Not OK%N")
15     end
16     end
17    
18     $NEW_TYPE
19    
20     end

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23