File: elements.t

package info (click to toggle)
libxml-easyobj-perl 1.12-2
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k, lenny, sarge
  • size: 152 kB
  • ctags: 7
  • sloc: xml: 608; perl: 294; makefile: 35
file content (23 lines) | stat: -rw-r--r-- 558 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 

use strict;
use Test;
use XML::EasyOBJ;
use FindBin qw/$Bin/;

BEGIN { plan tests => 7 }

ok( my $doc = XML::EasyOBJ->new( "$Bin/read.xml" ) );
ok( my @maps = $doc->MAP, 6 );

ok( my @elements = $doc->MAP(0)->KINGDOM(0)->getElement(), 6 );
ok( $doc->MAP(0)->KINGDOM(0)->getElement()->getTagName, 'PLAYER' );
ok( $doc->MAP(0)->KINGDOM(0)->getElement('',2)->getTagName, 'RELIGION' );

my $list = '';
for ( @elements ) {
    $list .= $_->getTagName;
}

ok( $list, 'PLAYERNAMERELIGIONRULERDIPLOMACYNOTES' );
ok( ! $doc->MAP(0)->KINGDOM(0)->getElement('',6) );