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

Annotation of /trunk/eweasel/tests/freez015/tcf

Parent Directory Parent Directory | Revision Log Revision Log


Revision 65296 - (hide annotations)
Thu Nov 30 19:56:25 2006 UTC (13 years, 2 months ago) by manus
Original Path: trunk/Src/eweasel/tests/freez015/tcf
File size: 1123 byte(s)
Initial revision for the eweasel delivery provided by David Hollenberg
  from the University of Southern California under the GPL v2.0 license.

1 manus 65296
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 address-of-redefined-routine
10     test_description A class has a routine which obtains the address of a procedure via $p. A descendant class redefines procedure `p'. In the descendant, $p incorrectly returns the address of the ancestor's version of the routine instead of the redefined routine.
11    
12    
13     copy_sub Ace $TEST Ace
14     copy_raw test.e $CLUSTER test.e
15     copy_raw test1.e $CLUSTER test1.e
16     copy_raw test2.e $CLUSTER test2.e
17     compile_frozen
18     compile_result ok
19    
20     c_compile_work
21     c_compile_result ok
22    
23     execute_work NONE exec_output1
24     execute_result ok
25     if DOTNET compare exec_output1 output_dotnet
26     if not DOTNET compare exec_output1 output_classic
27    
28     compile_final
29     compile_result ok
30    
31     c_compile_final
32     c_compile_result ok
33    
34     execute_final NONE exec_output2
35     execute_result ok
36     if DOTNET compare exec_output2 output_dotnet
37     if not DOTNET compare exec_output2 output_classic
38    
39     test_end

Properties

Name Value
svn:eol-style native

  ViewVC Help
Powered by ViewVC 1.1.23