--| Copyright (c) 1993-2006 University of Southern California and contributors.
--| All rights reserved.
--| Your use of this work is governed under the terms of the GNU General
--| Public License version 2.

-- This is a test control file

test_name 	 constant-variable-constant
test_description A system creates an instance of a class and prints the value of its only feature, which is a constant INTEGER attribute.  After initial compilation, the constant is changed to an INTEGER variable.  System execution still produces the correct result.  Then the feature is changed back to an INTEGER constant and changes are melted.  System execution then dies with a segmentation violation.

define FEATURE "my_constant: INTEGER is 13"
copy_sub 	Ace $TEST Ace
copy_raw 	test.e $CLUSTER test.e
copy_sub 	test1.e $CLUSTER test1.e
compile_melted
compile_result 	ok

execute_work 	NONE 	exec_output1
execute_result 	ok
compare		exec_output1 output1

define FEATURE "my_constant: INTEGER"
copy_sub 	test1.e $CLUSTER test1.e
compile_melted
compile_result 	ok

execute_work 	NONE 	exec_output2
execute_result 	ok
compare		exec_output2 output2

define FEATURE "my_constant: INTEGER is 13"
copy_sub 	test1.e $CLUSTER test1.e
compile_melted
compile_result 	ok

execute_work 	NONE 	exec_output3
execute_result 	ok
compare		exec_output3 output1

test_end