Mercurial > pub > Impl

comparison _test/Test/DOM/Node.pm @ 382:99ac2e19c0cc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Implemented a strings map for a DOM schema
author sergey
date Thu, 23 Jan 2014 02:35:28 +0400
parents 4d0e1962161c
children
comparison
equal deleted inserted replaced
381:ced5937ff21a 382:99ac2e19c0cc
205 }; 205 };
206 206
207 test listNodePredefinedProps => sub { 207 test listNodePredefinedProps => sub {
208 my $node = Test::DOM::TypedNode->new(nodeName => 'TestNode'); 208 my $node = Test::DOM::TypedNode->new(nodeName => 'TestNode');
209 209
210 # the order of properties is not defined
210 my @props = $node->listProperties; 211 my @props = $node->listProperties;
211 my @expected = qw(name _private); 212 my @expected = qw(name _private);
212 213
213 failed "Got wrong list of props", @props unless cmparray(\@props,\@expected); 214 failed "Got wrong list of props", @props unless cmparray([sort @props],[sort @expected]);
214 }; 215 };
215 216
216 test listNodeAllProps => sub { 217 test listNodeAllProps => sub {
217 my $node = Test::DOM::TypedNode->new( 218 my $node = Test::DOM::TypedNode->new(
218 nodeName => 'TestNode', 219 nodeName => 'TestNode',
222 ); 223 );
223 224
224 my @props = $node->listProperties; 225 my @props = $node->listProperties;
225 my @expected = qw(name _private uuid); # systemName is not a DOM prop 226 my @expected = qw(name _private uuid); # systemName is not a DOM prop
226 227
227 failed "Got wrong list of props", @props unless cmparray(\@props,\@expected); 228 failed "Got wrong list of props", @props unless cmparray([sort @props],[sort @expected]);
228 }; 229 };
229 230
230 test MemoryLeaks => sub { 231 test MemoryLeaks => sub {
231 my $doc = new IMPL::DOM::Document(nodeName => 'Root'); 232 my $doc = new IMPL::DOM::Document(nodeName => 'Root');
232 weaken($doc); 233 weaken($doc);