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

Contents of /trunk/eweasel/tests/melt040/tcf

Parent Directory Parent Directory | Revision Log Revision Log


Revision 65297 - (show annotations)
Thu Nov 30 20:22:33 2006 UTC (12 years, 10 months 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
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