test_name	storable-removing-attachment-marks
test_description Trying to store/retrieve a storable where attachment marks are removed.

define SAVE "save (False)"
define ATT "attached "
define DET "detachable "
copy_sub 	Ace $TEST Ace
copy_sub	test.e $CLUSTER test.e
copy_sub	a.e $CLUSTER a.e
copy_sub	b.e $CLUSTER b.e

compile_melted
compile_result ok

c_compile_work
c_compile_result	ok

execute_work   NONE exec_output_1
execute_result ok
compare        exec_output_1 output

define SAVE "save (True)"
copy_sub	test.e $CLUSTER test.e

compile_melted
compile_result ok

execute_work   NONE exec_output_2
execute_result ok
compare        exec_output_2 output_failure

define SAVE ""
define ATT "detachable "
define DET "detachable "
copy_sub	test.e $CLUSTER test.e
copy_sub	a.e $CLUSTER a.e

compile_melted
compile_result ok

execute_work   NONE exec_output_3
execute_result ok
compare        exec_output_3 output_detached

test_end