Mercurial > pub > Impl

diff _test/any.pl @ 103:c289ed9662ca

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Schema beta 2 More strict validation, support for inflating a simple nodes and properties
author wizard
date Fri, 07 May 2010 18:17:40 +0400
parents 16ada169ca75
children 3f38dabaf5cc
line wrap: on
line diff
--- a/_test/any.pl	Fri May 07 08:05:23 2010 +0400
+++ b/_test/any.pl	Fri May 07 18:17:40 2010 +0400
@@ -4,6 +4,7 @@
 
 require IMPL::DOM::Navigator::SimpleBuilder;
 require IMPL::DOM::XMLReader;
+require IMPL::DOM::Schema;
 
 my $builder = IMPL::DOM::Navigator::SimpleBuilder->new();
     
@@ -59,6 +60,10 @@
     $reader2->ParseFile("Resources/person_info.xml");
     print "Parsing small Xml file: ",tv_interval($t,[gettimeofday]),"\n";
     
+    $t = [gettimeofday];
+    IMPL::DOM::Schema->LoadSchema('Resources/form.xml') for 1..10;
+    print "Load a small schema 10 times: ",tv_interval($t,[gettimeofday]),"\n";
+    
 sub selectAll {
     my $node = shift;
     $node,map selectAll($_),@{$node->childNodes};