--- a/_test/temp.pl	Mon Aug 20 17:24:48 2012 +0400
+++ b/_test/temp.pl	Tue Aug 21 17:13:47 2012 +0400
@@ -2,20 +2,20 @@
 use strict;
 
 use XML::Compile::Schema;
-use XML::Compile::Util qw(pack_type);
+use XML::Compile::Util qw(pack_type pack_id);
 use Data::Dumper;
 use Time::HiRes qw(gettimeofday tv_interval);
     
-my $schema = XML::Compile::Schema->new('Resources/person.xsd');
+my $schema = XML::Compile::Schema->new('Resources/resources.xsd');
 
 $schema->printIndex();
 
-my $type = pack_type 'http://implab.org/person/', 'personInfo';
+my $type = pack_type 'http://implab.org/schemas/resources', 'resources';
 my $reader = $schema->compile(READER => $type);
 
 my $t = [gettimeofday];
 
-my $obj = $reader->('Resources/person_info.xml');
+my $obj = $reader->('Resources/sample.xml');
 
 print "Parsing small Xml file: ",tv_interval($t,[gettimeofday]),"\n";