view release on metacpan or  search on metacpan

t/XML-Parser-Nodes.t  view on Meta::CPAN

like( $dump, qr/$match[1]/s, 'pl2xml() #4' ) ;

$dump = $xmlreq->nvpdump ;
like( $dump, qr/$match[2]/s, 'nvpdump() #1' ) ;
like( $dump, qr/$match[3]/s, 'nvpdump() #2' ) ;

$xml = new XML::Parser::Nodes $msmxml ;
$dump = $header .$xml->dump ;
is( $dump, $msmxml, "new() #1" ) ;

my @path = split m|/|, $0 ;
pop @path ;
my $fn = join '/', @path, 'XML-Parser-Nodes.xml' ;
local( *H ) ;
my $fh = *H ;

ok( open( $fh, $fn ), 'can\'t open xml file' ) ;
my $buff = '' ;
do { 
	undef $/ ;
	$buff = <$fh> ;