Differential D1381 Diff 6341 source/tools/entity/entvalidate.pl

Changeset View

Standalone View

Show First 20 Lines • Show All 43 Lines • ▼ Show 20 Lines	sub validate
my $xml = to_xml(Entity::load_inherited($vfspath));		my $xml = to_xml(Entity::load_inherited($vfspath));
my $doc = XML::LibXML->new->parse_string($xml);		my $doc = XML::LibXML->new->parse_string($xml);
$rngschema->validate($doc);		$rngschema->validate($doc);
}		}


sub check_all		sub check_all
{		{
my @files = Entity::find_entities();		my @files = Entity::find_entities("public");

my $count = 0;		my $count = 0;
my $failed = 0;		my $failed = 0;
for my $f (sort @files) {		for my $f (sort @files) {
next if $f =~ /^template_/;		next if $f =~ /^template_/;
print "# $f...\n";		print "# $f...\n";
++$count;		++$count;
eval {		eval {
Show All 12 Lines