comparison _test/Test/DOM/Schema.pm @ 19:1ca530e5c9c5

DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
author Sergey
date Fri, 11 Sep 2009 16:30:39 +0400
parents
children 7f00786f8210
comparison
equal deleted inserted replaced
18:818c74b038ae 19:1ca530e5c9c5
1 package Test::DOM::Schema;
2 use strict;
3 use warnings;
4
5 use base qw(IMPL::Test::Unit);
6 use IMPL::Test qw(test failed);
7
8 __PACKAGE__->PassThroughArgs;
9
10 require IMPL::DOM::Schema;
11
12 test GetMetaSchema => sub {
13 my $metaSchema = IMPL::DOM::Schema->MetaSchema();
14 };
15
16 test AutoverifyMetaSchema => sub {
17 my $metaSchema = IMPL::DOM::Schema->MetaSchema();
18
19 if (my @errors = $metaSchema->Validate($metaSchema)) {
20 failed "Self verification failed", map $_ ? $_->Message : 'unknown', @errors;
21 }
22 };
23
24 1;