Mini Shell

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

my $stcount = 0;
my $encount = 0;

sub st {
    my ( $exp, $el ) = @_;
    $stcount++;
    $exp->finish if $el eq 'loc';
}

sub end {
    $encount++;
}

$parser = new XML::Parser(
    Handlers => {
        Start => \&st,
        End   => \&end
    },
    ErrorContext => 2
);

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

print "not " unless $stcount == 12;
print "ok 2\n";

print "not " unless $encount == 8;
print "ok 3\n";