Contents of /trunk/eweasel/tests/final031/tcf


--| Copyright (c) 1993-2006 University of Southern California and contributors.
--| All rights reserved.
--| Your use of this work is governed under the terms of the GNU General
--| Public License version 2.

-- This is a test control file

test_name       precursor-call-current-instead-of-precursor
test_description When a routine calls Precursor and calls itself as a recursive call before the precursor call, the precursor call is replaced by an invalid call (usually a recursive call instead of the precursor one)

copy_sub        Ace $TEST Ace
copy_raw        test.e $CLUSTER test.e
copy_raw        test1.e $CLUSTER test1.e
copy_raw        test2.e $CLUSTER test2.e

compile_final
compile_result  ok

c_compile_final
c_compile_result ok

execute_final   NONE exec_output1
execute_result  ok
compare         exec_output1 output

test_end
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 precursor-call-current-instead-of-precursor
10	test_description When a routine calls Precursor and calls itself as a recursive call before the precursor call, the precursor call is replaced by an invalid call (usually a recursive call instead of the precursor one)
11
12	copy_sub Ace $TEST Ace
13	copy_raw test.e $CLUSTER test.e
14	copy_raw test1.e $CLUSTER test1.e
15	copy_raw test2.e $CLUSTER test2.e
16
17	compile_final
18	compile_result ok
19
20	c_compile_final
21	c_compile_result ok
22
23	execute_final NONE exec_output1
24	execute_result ok
25	compare exec_output1 output
26
27	test_end