test_name 	 attribute-and-assigner-coupling
test_description Test for code generation of inherited attributes and associated assigner routines when they are coupled and decoupled.

copy_raw	c.e $CLUSTER c.e
copy_raw	d.e $CLUSTER d.e
copy_raw	test.e $CLUSTER test.e

if not DOTNET	copy_raw	system_object.e	$CLUSTER system_object.e
copy_sub	Ace $TEST Ace

define PARENT_A ""
define PARENT_B ""
copy_sub	a.e $CLUSTER a.e
copy_sub	b.e $CLUSTER b.e

compile_melted
compile_result	ok
execute_work	NONE exec_output
execute_result	ok
compare		exec_output output

define PARENT_A "SYSTEM_OBJECT"
define PARENT_B ""
copy_sub	a.e $CLUSTER a.e
copy_sub	b.e $CLUSTER b.e

compile_melted
compile_result	ok
execute_work	NONE exec_output
execute_result	ok
compare		exec_output output

define PARENT_A ""
define PARENT_B "SYSTEM_OBJECT"
copy_sub	a.e $CLUSTER a.e
copy_sub	b.e $CLUSTER b.e

compile_melted
compile_result	ok
execute_work	NONE exec_output
execute_result	ok
compare		exec_output output

test_end