test_name 	once-per-object-exec-with-exception
test_description Raising and catching exceptions in once per object routines. The same exception object should be raised the second time a once routine is called.

copy_sub 	Ace $TEST Ace
copy_raw 	a1.e $CLUSTER a.e

compile_melted
compile_result 	ok
execute_work	NONE exec_output_w_1
execute_result ok
compare		exec_output_w_1 output

compile_frozen
compile_result 	ok
c_compile_work
c_compile_result ok
execute_work	NONE exec_output_f_1
execute_result 	ok
compare		exec_output_f_1 output

compile_final_keep
compile_result 	ok
c_compile_final
c_compile_result ok
execute_final	NONE exec_output_final_1
execute_result ok
compare		exec_output_final_1 output

copy_raw 	a2.e $CLUSTER a.e

compile_melted
compile_result 	ok
execute_work	NONE exec_output_w_2
execute_result ok
compare		exec_output_w_2 output

compile_frozen
compile_result 	ok
c_compile_work
c_compile_result ok
execute_work	NONE exec_output_f_2
execute_result 	ok
compare		exec_output_f_2 output

compile_final_keep
compile_result 	ok
c_compile_final
c_compile_result ok
execute_final	NONE exec_output_final_2
execute_result ok
compare		exec_output_final_2 output

 
test_end