Mini Shell

Direktori : /home/.cpanm/work/1731937184.9053/XML-Parser-2.47/t/
Upload File :
Current File : //home/.cpanm/work/1731937184.9053/XML-Parser-2.47/t/file.t

use Test::More tests => 1;
use XML::Parser;

my $count = 0;

$parser = XML::Parser->new( ErrorContext => 2 );
$parser->setHandlers( Comment => sub { $count++; } );

$parser->parsefile('samples/REC-xml-19980210.xml');

is( $count, 37 );

Zerion Mini Shell 1.0