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

Annotation of /trunk/eweasel/tests/melt040/tcf

Parent Directory Parent Directory | Revision Log Revision Log


Revision 65297 - (hide annotations)
Thu Nov 30 20:22:33 2006 UTC (13 years, 1 month ago) by manus
File size: 1753 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 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 infix-integer-real-double
10     test_description A call to a routine which is implemented as an infix operator gives the wrong results when the formal argument is of a heavier type than the actual argument (e.g., formal is DOUBLE and actual is REAL). Also, in some cases passing a REAL to a REAL formal argument does not give correct results. In some cases, frozen and melted code give different results.
11    
12     copy_sub Ace $TEST Ace
13     define INSTRUCTION ""
14     copy_sub test.e $CLUSTER test.e
15     copy_raw test1.e $CLUSTER test1.e
16     compile_melted
17     compile_result ok
18    
19     execute_work NONE exec_output1
20     execute_result ok
21     compare exec_output1 output
22    
23     compile_frozen
24     compile_result ok
25    
26     c_compile_work
27     c_compile_result ok
28    
29     execute_work NONE exec_output2
30     execute_result ok
31     compare exec_output2 output
32    
33     define INSTRUCTION "g := g"
34     copy_sub test.e $CLUSTER test.e
35     compile_melted
36     compile_result ok
37    
38     execute_work NONE exec_output3
39     execute_result ok
40     compare exec_output3 output
41    
42     cleanup_compile
43    
44     define INSTRUCTION ""
45     copy_sub test_rev1.e $CLUSTER test.e
46     compile_melted
47     compile_result ok
48    
49     execute_work NONE exec_output4
50     execute_result ok
51     compare exec_output4 output
52    
53     compile_frozen
54     compile_result ok
55    
56     c_compile_work
57     c_compile_result ok
58    
59     execute_work NONE exec_output5
60     execute_result ok
61     compare exec_output5 output
62    
63     define INSTRUCTION "g := g"
64     copy_sub test_rev1.e $CLUSTER test.e
65     compile_melted
66     compile_result ok
67    
68     execute_work NONE exec_output6
69     execute_result ok
70     compare exec_output6 output
71    
72     test_end

Properties

Name Value
svn:eol-style native

  ViewVC Help
Powered by ViewVC 1.1.23