1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56

BEGIN { print "1..4\n"; }
END { print "not ok 1\n" unless $loaded; }
use XML::Parser;
$loaded = 1;
print "ok 1\n";

my $cmnt_count    = 0;
my $pi_count      = 0;
my $between_count = 0;
my $authseen      = 0;

sub init {
    my $xp = shift;
    $xp->skip_until(1);    # Skip through prolog
}

sub proc {
    $pi_count++;
}

sub cmnt {
    $cmnt_count++;
}

sub start {
    my ( $xp, $el ) = @_;
    my $ndx = $xp->element_index;
    if ( !$authseen and $el eq 'authlist' ) {
        $authseen = 1;
        $xp->skip_until(2000);
    }
    elsif ( $authseen and $ndx < 2000 ) {
        $between_count++;
    }
}

my $p = new XML::Parser(
    Handlers => {
        Init    => \&init,
        Start   => \&start,
        Comment => \&cmnt,
        Proc    => \&proc
    }
);

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

print "not " if $between_count;
print "ok 2\n";

print "not " if $pi_count;
print "ok 3\n";

print "not " unless $cmnt_count == 5;
print "ok 4\n";