/[eiffelstudio]/trunk/eweasel/tests/incr170/tcf
ViewVC logotype

Contents of /trunk/eweasel/tests/incr170/tcf

Parent Directory Parent Directory | Revision Log Revision Log


Revision 65297 - (show annotations)
Thu Nov 30 20:22:33 2006 UTC (13 years, 2 months ago) by manus
File size: 1457 byte(s)
Moved from trunk/Src/eweasel to trunk/eweasel so that a simple checkout of the source code is not penalized by the lenghty process of checking out all the tests of eweasel.
1
2 --| Copyright (c) 1993-2006 University of Southern California and contributors.
3 --| All rights reserved.
4 --| Your use of this work is governed under the terms of the GNU General
5 --| Public License version 2.
6
7 -- This is a test control file
8
9 test_name vmfn-new-deferred-ancestor
10 test_description After initial compilation where the system is melted, a deferred routine effected by an attribute is changed to a constant attribute. When the VMFN error is reported, it is changed back to a deferred routine and compilation finishes normally. Then a new class with a deferred version of the routine is inherited and called with dynamic type Current. After changes are melted, execution ends with a segmentation fault.
11
12 define PARENT ""
13 define ATTRIBUTES ""
14 define INSTRUCTIONS ""
15 define BODY "deferred end"
16 copy_sub Ace $TEST Ace
17 copy_sub test.e $CLUSTER test.e
18 copy_sub test1.e $CLUSTER test1.e
19 copy_raw test2.e $CLUSTER test2.e
20 compile_melted
21 compile_result ok
22
23 define BODY ""abc""
24 copy_sub test1.e $CLUSTER test1.e
25 compile_melted
26 compile_result validity_error TEST VMFN
27
28 define BODY "deferred end"
29 copy_sub test1.e $CLUSTER test1.e
30 resume_compile
31 compile_result ok
32
33 define PARENT "TEST2"
34 define ATTRIBUTES "y: TEST2"
35 define INSTRUCTIONS "y := Current; io.put_string (y.attr); io.new_line;"
36 copy_sub test.e $CLUSTER test.e
37 compile_melted
38 compile_result ok
39
40 execute_work NONE exec_output1
41 execute_result ok
42 compare exec_output1 output
43
44 test_end

Properties

Name Value
svn:eol-style native

  ViewVC Help
Powered by ViewVC 1.1.23