--| 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 	 new-root-cluster-bogus-vscn
test_description After initial compilation, the Ace is changed to indicate a new root class, which happens to be generic.  The compiler detects the VSRT(4) error.  But when the Ace is changed to indicate a new (and newly added) root cluster with a valid root class the compiler reports a bogus VSCN error.

define		 ROOT_CLASS "TEST1"
define		 ROOT_CLUSTER "root_cluster"
define		 PRE "<!--"
define		 POST "-->"
define_directory CLUSTER1 $CLUSTER cluster1
define_directory CLUSTER2 $CLUSTER cluster2
copy_sub 	 Ace $TEST Ace
copy_raw 	 test1.e  $CLUSTER1 test1.e
define		 GENERICS "[G]"
copy_sub 	 test.e  $CLUSTER1 test.e
define		 GENERICS ""
copy_sub 	 test.e  $CLUSTER2 test.e
compile_melted
compile_result 	 ok

define		 ROOT_CLASS "TEST"
copy_sub 	 Ace $TEST Ace

compile_melted
compile_result 	 validity_error NONE VSRT(4)

define		 ROOT_CLUSTER "other_cluster"
define		 PRE ""
define		 POST ""
copy_sub 	 Ace $TEST Ace
resume_compile
compile_result 	 validity_error NONE VSCN
test_end