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;