Mercurial > pub > Impl

comparison _test/Test/DOM/Schema.pm @ 28:6d33f75c6e1f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
ORM in works
author Sergey
date Mon, 19 Oct 2009 04:13:54 +0400
parents 7f00786f8210
children 16ada169ca75
comparison
equal deleted inserted replaced
27:b544a772b654 28:6d33f75c6e1f
18 my $metaSchema = IMPL::DOM::Schema->MetaSchema(); 18 my $metaSchema = IMPL::DOM::Schema->MetaSchema();
19 }; 19 };
20 20
21 test AutoverifyMetaSchema => sub { 21 test AutoverifyMetaSchema => sub {
22 my $metaSchema = IMPL::DOM::Schema->MetaSchema(); 22 my $metaSchema = IMPL::DOM::Schema->MetaSchema();
23 23
24 if (my @errors = $metaSchema->Validate($metaSchema)) { 24 if (my @errors = $metaSchema->Validate($metaSchema)) {
25 failed "Self verification failed", map $_ ? $_->Message : 'unknown', @errors; 25 failed "Self verification failed", map $_ ? $_->Message : 'unknown', @errors;
26 } 26 }
27 }; 27 };
28 28