--| 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 	 external-make-precondition-true
test_description A class calls an external routine with a precondition that is false. When the system is executed, the precondition is violated and an exception is raised, which is correct.  Then the precondition is changed so that it is true and changes are melted.  System execution still violates the precondition, but should not.

define PRECONDITION "default_pointer /= default_pointer"
copy_sub 	Ace $TEST Ace
copy_sub 	test.e $CLUSTER test.e
compile_frozen
compile_result 	ok

c_compile_work
c_compile_result ok

execute_work	 NONE exec_output1
execute_result	 ok
compare		 exec_output1 output1

define PRECONDITION "default_pointer /= default_pointer + 1"
copy_sub 	test.e $CLUSTER test.e
compile_melted
compile_result 	ok

c_compile_work
c_compile_result ok

execute_work	 NONE exec_output2
execute_result	 ok
compare		 exec_output2 output2

test_end