Mercurial > pub > Impl

comparison _test/Test/DOM/Schema.pm @ 232:5c82eec23bb6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fixed degradations due refactoring
author sergey
date Tue, 09 Oct 2012 20:12:47 +0400
parents 4d0e1962161c
children
comparison
equal deleted inserted replaced
231:ff1e8fa932f2 232:5c82eec23bb6
33 33
34 my $schema = new IMPL::DOM::Schema; 34 my $schema = new IMPL::DOM::Schema;
35 $schema->appendRange( 35 $schema->appendRange(
36 IMPL::DOM::Schema::ComplexNode->new( name => 'personInfo' )->appendRange( 36 IMPL::DOM::Schema::ComplexNode->new( name => 'personInfo' )->appendRange(
37 IMPL::DOM::Schema::NodeSet->new()->appendRange( 37 IMPL::DOM::Schema::NodeSet->new()->appendRange(
38 new IMPL::DOM::Schema::SimpleNode( name => 'firstName' ), 38 IMPL::DOM::Schema::SimpleNode->new( name => 'firstName' ),
39 new IMPL::DOM::Schema::SimpleNode( name => 'lastName' ), 39 IMPL::DOM::Schema::SimpleNode->new( name => 'lastName' ),
40 new IMPL::DOM::Schema::ComplexNode( name => 'address' )->appendRange( 40 IMPL::DOM::Schema::ComplexNode->new( name => 'address' )->appendRange(
41 IMPL::DOM::Schema::NodeSet->new()->appendRange( 41 IMPL::DOM::Schema::NodeSet->new()->appendRange(
42 new IMPL::DOM::Schema::SimpleNode( name => 'street' ), 42 IMPL::DOM::Schema::SimpleNode->new( name => 'street' ),
43 new IMPL::DOM::Schema::SimpleNode( name => 'line', minOccur => 0 ) 43 IMPL::DOM::Schema::SimpleNode->new( name => 'line', minOccur => 0 )
44 ) 44 )
45 ) 45 )
46 ) 46 )
47 ) 47 )
48 ); 48 );
57 my $metaSchema = IMPL::DOM::Schema->MetaSchema(); 57 my $metaSchema = IMPL::DOM::Schema->MetaSchema();
58 58
59 my $schema = new IMPL::DOM::Schema; 59 my $schema = new IMPL::DOM::Schema;
60 $schema->appendRange( 60 $schema->appendRange(
61 IMPL::DOM::Schema::ComplexNode->new( name => 'personInfo' )->appendRange( 61 IMPL::DOM::Schema::ComplexNode->new( name => 'personInfo' )->appendRange(
62 new IMPL::DOM::Schema::ComplexType( type => 'someType' ), 62 IMPL::DOM::Schema::ComplexType->new( type => 'someType' ),
63 new IMPL::DOM::Schema::SimpleNode( name => 'lastName' ), 63 IMPL::DOM::Schema::SimpleNode->new( name => 'lastName' ),
64 new IMPL::DOM::Schema::ComplexNode( name => 'address' )->appendRange( 64 IMPL::DOM::Schema::ComplexNode->new( name => 'address' )->appendRange(
65 new IMPL::DOM::Schema::SimpleNode( name => 'street' ), 65 IMPL::DOM::Schema::SimpleNode->new( name => 'street' ),
66 new IMPL::DOM::Schema::SimpleNode( name => 'line' ) 66 IMPL::DOM::Schema::SimpleNode->new( name => 'line' )
67 ) 67 )
68 ) 68 )
69 ); 69 );
70 70
71 my @errors = $metaSchema->Validate($schema); 71 my @errors = $metaSchema->Validate($schema);