--| 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 	 vtct-on-valid-class
test_description A valid class with an indexing clause with either an Index_tag or an identifier Index_term which includes `class', even as a proper substring, causes the compiler to report VTCT on the enclosing class.

copy_sub 	 Ace $TEST Ace
define		 INDEXING "related_classes: WEASEL, WIMP"
copy_raw 	 test.e $CLUSTER test.e
copy_sub 	 test1.e $CLUSTER test1.e
compile_melted
compile_result 	 ok

define		 INDEXING "classes: WEASEL, WIMP"
copy_sub 	 test1.e $CLUSTER test1.e
compile_melted
compile_result 	 ok

define		 INDEXING "weasels: related_classes, wimp"
copy_sub 	 test1.e $CLUSTER test1.e
compile_melted
compile_result 	 ok

define		 INDEXING "weasels: "related_classes, wimp""
copy_sub 	 test1.e $CLUSTER test1.e
compile_melted
compile_result 	 ok

test_end