--| 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 	 expanded-add-default-create
test_description After initial compilation where the system is melted, an expanded class with no creation procedure adds a redefinition of default_create.  The system is recompiled without error but the creation procedure of the expanded class is called twice (it is only called once if final classes are compiled from scratch).

define INHERITANCE ""
define DEFAULT_CREATE ""
copy_sub 	 Ace $TEST Ace
copy_raw 	 test.e  $CLUSTER test.e
copy_sub 	 test1.e  $CLUSTER test1.e
compile_melted
compile_result 	 ok

define INHERITANCE "inherit ANY redefine default_create end"
define DEFAULT_CREATE "default_create is do print ("Weasel%N") end"
copy_sub 	 test1.e  $CLUSTER test1.e
compile_melted
compile_result 	 ok

execute_work	 NONE exec_output1
execute_result	 ok
compare		 exec_output1 output

test_end