Mercurial > pub > Impl
diff _test/Test/DOM/Schema.pm @ 101:d8dc6cad3f55
Schema in progress
author | wizard |
---|---|
date | Thu, 06 May 2010 17:55:59 +0400 |
parents | 16ada169ca75 |
children | 4267a2ac3d46 |
line wrap: on
line diff
--- a/_test/Test/DOM/Schema.pm Thu May 06 00:54:17 2010 +0400 +++ b/_test/Test/DOM/Schema.pm Thu May 06 17:55:59 2010 +0400 @@ -8,7 +8,8 @@ __PACKAGE__->PassThroughArgs; -require IMPL::DOM::Schema; +use IMPL::DOM::Schema; +use IMPL::DOM::Navigator::Builder; BEGIN { shared public property SampleSchema => prop_all; @@ -100,5 +101,21 @@ failed "A wrong data validated corretly" unless $this->SampleSchema->Validate($data); }; +test LoadXmlSchemaTypes => sub { + my ($this) = @_; + + my $schema = IMPL::DOM::Schema->LoadSchema("Resources/types.xml") or failed "Failed to parse schema"; + + return 1; +}; + +test LoadXmlSchemaData => sub { + my ($this) = @_; + + my $schema = IMPL::DOM::Schema->LoadSchema("Resources/form.xml") or failed "Failed to parse schema"; + + return 1; +}; + 1;