--| 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 	 vjaw-delete-creation-clause
test_description After initial compilation, a VJAW error is introduced.  When the compiler detects it, the creation clause is removed from the root class and the cluster mark and creation procedure name are removed from the Ace.

define		 ROOT "<root cluster="root_cluster" class="test" feature="make"/>"
copy_sub 	 Ace $TEST Ace
define		 CREATION "creation make"
define		 ATTRIBUTE "x: INTEGER"
copy_sub 	 test.e  $CLUSTER test.e
compile_melted
compile_result 	 ok

define		 ATTRIBUTE "x: INTEGER is 1"
copy_sub 	 test.e  $CLUSTER test.e
compile_melted
compile_result 	 validity_error TEST VJAW

define		 ROOT "<root class="test"/>"
copy_sub 	 Ace $TEST Ace
define		 CREATION ""
define		 ATTRIBUTE "x: INTEGER is 1"
copy_sub 	 test.e  $CLUSTER test.e
resume_compile
compile_result 	 validity_error TEST VJAW

define		 ATTRIBUTE "x: INTEGER"
copy_sub 	 test.e  $CLUSTER test.e
resume_compile
compile_result 	 ok

test_end