--| 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 copy-infinite-recursion
test_description Calling Precursor in the redefinition of `copy' of ANY causes an infinite recursion where it should not.

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

compile_melted
compile_result ok

execute_work 	NONE 	exec_output
execute_result 	ok

test_end