test_name 	remove-used-library 
test_description Edit a used library to not use another library anymore which is still used by other libraries.

define_directory A $CLUSTER a
define_directory B $CLUSTER b

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

define		BODY_A "local t: THREAD do t := t end"
define		LIB_A "<library name="thread" location="$ISE_LIBRARY\library\thread\thread.ecf"/>"

copy_sub	a.e $A a.e
copy_raw	b.e $B b.e
copy_sub	liba $CLUSTER liba
copy_raw	libb $CLUSTER libb

compile_quick_melted
compile_result ok

define		BODY_A "do end"
define		LIB_A ""

copy_sub	a.e $A a.e
copy_sub	liba $CLUSTER liba

compile_quick_melted
compile_result ok

test_end