Contents of /trunk/eweasel/tests/incr257/tcf

test_name       agent-add-arguments
test_description When calling an agent that had its number of argument increased the C generated code is wrong and still use the old wrapper using only 2 arguments.

define THIRD_DECL ""
define THIRD_VAL ""
define THIRD_INST ""
copy_sub        Ace $TEST Ace
copy_raw        test.e $CLUSTER test.e
copy_sub        a.e $CLUSTER a.e
copy_sub        b.e $CLUSTER b.e

compile_frozen
compile_result ok

c_compile_work
c_compile_result ok

execute_work    NONE    exec_output1
execute_result  ok
compare         exec_output1 output1

define THIRD_DECL ", u"
define THIRD_VAL ", "wel""
define THIRD_INST "print (u) print ("%N")"
copy_sub        a.e $CLUSTER a.e
copy_sub        b.e $CLUSTER b.e

compile_melted
compile_result ok

execute_work    NONE    exec_output2
execute_result  ok
compare         exec_output2 output2


test_end
1	test_name agent-add-arguments
2	test_description When calling an agent that had its number of argument increased the C generated code is wrong and still use the old wrapper using only 2 arguments.
3
4	define THIRD_DECL ""
5	define THIRD_VAL ""
6	define THIRD_INST ""
7	copy_sub Ace $TEST Ace
8	copy_raw test.e $CLUSTER test.e
9	copy_sub a.e $CLUSTER a.e
10	copy_sub b.e $CLUSTER b.e
11
12	compile_frozen
13	compile_result ok
14
15	c_compile_work
16	c_compile_result ok
17
18	execute_work NONE exec_output1
19	execute_result ok
20	compare exec_output1 output1
21
22	define THIRD_DECL ", u"
23	define THIRD_VAL ", "wel""
24	define THIRD_INST "print (u) print ("%N")"
25	copy_sub a.e $CLUSTER a.e
26	copy_sub b.e $CLUSTER b.e
27
28	compile_melted
29	compile_result ok
30
31	execute_work NONE exec_output2
32	execute_result ok
33	compare exec_output2 output2
34
35
36	test_end