--| 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 bogus-vd28 test_description A system has an Ace which specifies the precompiled cluster EiffelBase and also has a cluster with Cluster_tag `kernel'. After initial compilation, the tag `kernel' is changed to `other' and the system is recompiled. The compiler then reports an erroneous VD28 error. define CLUSTER_TAG "kernel" define_directory CLUSTER2 $CLUSTER subdir copy_sub Ace $TEST Ace copy_raw test.e $CLUSTER test.e copy_raw test1.e $CLUSTER2 test1.e compile_melted compile_result ok define CLUSTER_TAG "other" copy_sub Ace $TEST Ace compile_melted compile_result ok test_end