Mercurial > pub > Impl
annotate _test/Test/DOM/Schema.pm @ 40:ac21a032e7a9
bnf parser in progress
| author | Sergey |
|---|---|
| date | Thu, 10 Dec 2009 17:43:39 +0300 |
| parents | 6d33f75c6e1f |
| children | 16ada169ca75 |
| rev | line source |
|---|---|
|
19
1ca530e5c9c5
DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
diff
changeset
|
1 package Test::DOM::Schema; |
|
1ca530e5c9c5
DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
diff
changeset
|
2 use strict; |
|
1ca530e5c9c5
DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
diff
changeset
|
3 use warnings; |
|
1ca530e5c9c5
DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
diff
changeset
|
4 |
|
1ca530e5c9c5
DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
diff
changeset
|
5 use base qw(IMPL::Test::Unit); |
| 24 | 6 use IMPL::Test qw(test failed shared); |
| 7 use IMPL::Class::Property; | |
|
19
1ca530e5c9c5
DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
diff
changeset
|
8 |
|
1ca530e5c9c5
DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
diff
changeset
|
9 __PACKAGE__->PassThroughArgs; |
|
1ca530e5c9c5
DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
diff
changeset
|
10 |
|
1ca530e5c9c5
DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
diff
changeset
|
11 require IMPL::DOM::Schema; |
|
1ca530e5c9c5
DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
diff
changeset
|
12 |
| 24 | 13 BEGIN { |
| 14 shared public property SampleSchema => prop_all; | |
| 15 } | |
| 16 | |
|
19
1ca530e5c9c5
DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
diff
changeset
|
17 test GetMetaSchema => sub { |
|
1ca530e5c9c5
DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
diff
changeset
|
18 my $metaSchema = IMPL::DOM::Schema->MetaSchema(); |
|
1ca530e5c9c5
DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
diff
changeset
|
19 }; |
|
1ca530e5c9c5
DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
diff
changeset
|
20 |
|
1ca530e5c9c5
DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
diff
changeset
|
21 test AutoverifyMetaSchema => sub { |
|
1ca530e5c9c5
DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
diff
changeset
|
22 my $metaSchema = IMPL::DOM::Schema->MetaSchema(); |
| 28 | 23 |
|
19
1ca530e5c9c5
DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
diff
changeset
|
24 if (my @errors = $metaSchema->Validate($metaSchema)) { |
|
1ca530e5c9c5
DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
diff
changeset
|
25 failed "Self verification failed", map $_ ? $_->Message : 'unknown', @errors; |
|
1ca530e5c9c5
DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
diff
changeset
|
26 } |
|
1ca530e5c9c5
DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
diff
changeset
|
27 }; |
|
1ca530e5c9c5
DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
diff
changeset
|
28 |
| 24 | 29 test VerifyCorrectSchema => sub { |
| 30 my ($this) = @_; | |
| 31 my $metaSchema = IMPL::DOM::Schema->MetaSchema(); | |
| 32 | |
| 33 my $schema = new IMPL::DOM::Schema; | |
| 34 $schema->appendRange( | |
| 35 IMPL::DOM::Schema::ComplexNode->new( name => 'personInfo' )->appendRange( | |
| 36 IMPL::DOM::Schema::NodeSet->new()->appendRange( | |
| 37 new IMPL::DOM::Schema::SimpleNode( name => 'firstName' ), | |
| 38 new IMPL::DOM::Schema::SimpleNode( name => 'lastName' ), | |
| 39 new IMPL::DOM::Schema::ComplexNode( name => 'address' )->appendRange( | |
| 40 IMPL::DOM::Schema::NodeSet->new()->appendRange( | |
| 41 new IMPL::DOM::Schema::SimpleNode( name => 'street' ), | |
| 42 new IMPL::DOM::Schema::SimpleNode( name => 'line', minOccur => 0 ) | |
| 43 ) | |
| 44 ) | |
| 45 ) | |
| 46 ) | |
| 47 ); | |
| 48 | |
| 49 $this->SampleSchema($schema); | |
| 50 | |
| 51 my @errors = $metaSchema->Validate($schema); | |
| 52 failed "Failed to validate a wellformed schema", map $_->Message, @errors if @errors; | |
| 53 }; | |
| 54 | |
| 55 test VerifyWrongSchema => sub { | |
| 56 my $metaSchema = IMPL::DOM::Schema->MetaSchema(); | |
| 57 | |
| 58 my $schema = new IMPL::DOM::Schema; | |
| 59 $schema->appendRange( | |
| 60 IMPL::DOM::Schema::ComplexNode->new( name => 'personInfo' )->appendRange( | |
| 61 new IMPL::DOM::Schema::ComplexType( type => 'someType' ), | |
| 62 new IMPL::DOM::Schema::SimpleNode( name => 'lastName' ), | |
| 63 new IMPL::DOM::Schema::ComplexNode( name => 'address' )->appendRange( | |
| 64 new IMPL::DOM::Schema::SimpleNode( name => 'street' ), | |
| 65 new IMPL::DOM::Schema::SimpleNode( name => 'line' ) | |
| 66 ) | |
| 67 ) | |
| 68 ); | |
| 69 | |
| 70 my @errors = $metaSchema->Validate($schema); | |
| 71 failed "A not wellformed schema validated correctly" unless @errors; | |
| 72 }; | |
| 73 | |
| 74 test ValidateCorrectData => sub { | |
| 75 my ($this) = @_; | |
| 76 | |
| 77 my $data = IMPL::DOM::Node->new(nodeName => 'personInfo')->appendRange( | |
| 78 IMPL::DOM::Node->new(nodeName => 'firstName', nodeValue => 'John'), | |
| 79 IMPL::DOM::Node->new(nodeName => 'lastName', nodeValue => 'Smith'), | |
| 80 IMPL::DOM::Node->new(nodeName => 'address')->appendRange( | |
| 81 IMPL::DOM::Node->new(nodeName => 'street', nodeValue => 'main road') | |
| 82 ) | |
| 83 ); | |
| 84 | |
| 85 if (my @errors = $this->SampleSchema->Validate($data)) { | |
| 86 failed "Failed to validate a correct data", map $_->Message , @errors; | |
| 87 } | |
| 88 }; | |
| 89 | |
| 90 test ValidateWrongData => sub { | |
| 91 my ($this) = @_; | |
| 92 | |
| 93 my $data = IMPL::DOM::Node->new(nodeName => 'personInfo')->appendRange( | |
| 94 IMPL::DOM::Node->new(nodeName => 'firstName', nodeValue => 'John'), | |
| 95 IMPL::DOM::Node->new(nodeName => 'address')->appendRange( | |
| 96 IMPL::DOM::Node->new(nodeName => 'street', nodeValue => 'main road') | |
| 97 ) | |
| 98 ); | |
| 99 | |
| 100 failed "A wrong data validated corretly" unless $this->SampleSchema->Validate($data); | |
| 101 }; | |
| 102 | |
| 103 | |
|
19
1ca530e5c9c5
DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
diff
changeset
|
104 1; |