File: file.t

package info (click to toggle)
libxml-parser-perl 2.47-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 1,396 kB
  • sloc: xml: 3,937; perl: 2,026; makefile: 38; ansic: 27
file content (12 lines) | stat: -rw-r--r-- 237 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
 

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 );