Contents of /trunk/eweasel/tests/fixed097/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        real-double-print
test_description A procedure which prints out some real and double constants after melting

copy_sub         Ace $TEST Ace
copy_raw         test.e  $CLUSTER test.e
compile_melted
compile_result  validity_warning TEST Unused_local_warning

execute_work             NONE exec_output1
execute_result   ok
compare          exec_output1 output1

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 real-double-print
10	test_description A procedure which prints out some real and double constants after melting
11
12	copy_sub Ace $TEST Ace
13	copy_raw test.e $CLUSTER test.e
14	compile_melted
15	compile_result validity_warning TEST Unused_local_warning
16
17	execute_work NONE exec_output1
18	execute_result ok
19	compare exec_output1 output1
20
21	test_end