test_name 	cluster-into-library-error 
test_description Transform a cluster into a library which has an error leads to a crash in the compiler.

define_directory A $TEST a

define		GROUP "<cluster name="a" location="$A"/>"

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

copy_raw	a.e $A a.e

compile_quick_melted
compile_result ok

define		GROUP "<library name="a" location="liba"/>"

copy_sub	Ace $TEST Ace
copy_raw	liba $TEST liba

compile_melted
compile_result validity_error A VTCT

resume_compile
compile_result validity_error A VTCT

test_end