--| 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 	 default-create-no-vd27
test_description A system's root class has a `create make' clause.  The Ace file specifies `default_create' as the root creation procedure.  The compiler should report a VD27 error, but does not.

define	CREATION "creation make"
define	ROOT_PROC "default_create"
copy_sub 	Ace $TEST Ace
copy_sub 	test.e $CLUSTER test.e
compile_melted
compile_result 	validity_error NONE VD27

define	CREATION "creation"
copy_sub	test.e $CLUSTER test.e
resume_compile
compile_result 	validity_error NONE VD27

define	CREATION ""
copy_sub	test.e $CLUSTER test.e
resume_compile
compile_result 	ok

test_end