Mercurial > pub > Impl

comparison _test/Test/DOM/Schema.pm @ 101:d8dc6cad3f55

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Schema in progress
author wizard
date Thu, 06 May 2010 17:55:59 +0400
parents 16ada169ca75
children 4267a2ac3d46
comparison
equal deleted inserted replaced
100:df6b4f054957 101:d8dc6cad3f55
6 use IMPL::Test qw(test failed shared); 6 use IMPL::Test qw(test failed shared);
7 use IMPL::Class::Property; 7 use IMPL::Class::Property;
8 8
9 __PACKAGE__->PassThroughArgs; 9 __PACKAGE__->PassThroughArgs;
10 10
11 require IMPL::DOM::Schema; 11 use IMPL::DOM::Schema;
12 use IMPL::DOM::Navigator::Builder;
12 13
13 BEGIN { 14 BEGIN {
14 shared public property SampleSchema => prop_all; 15 shared public property SampleSchema => prop_all;
15 } 16 }
16 17
98 ); 99 );
99 100
100 failed "A wrong data validated corretly" unless $this->SampleSchema->Validate($data); 101 failed "A wrong data validated corretly" unless $this->SampleSchema->Validate($data);
101 }; 102 };
102 103
104 test LoadXmlSchemaTypes => sub {
105 my ($this) = @_;
106
107 my $schema = IMPL::DOM::Schema->LoadSchema("Resources/types.xml") or failed "Failed to parse schema";
108
109 return 1;
110 };
111
112 test LoadXmlSchemaData => sub {
113 my ($this) = @_;
114
115 my $schema = IMPL::DOM::Schema->LoadSchema("Resources/form.xml") or failed "Failed to parse schema";
116
117 return 1;
118 };
119
103 120
104 1; 121 1;