BEGIN {print "1..3\n";} END {print "not ok 1\n" unless $loaded;} use XML::Parser; $loaded = 1; print "ok 1\n"; my $cnt = 0; my $str; sub tmpchar { my ($xp, $data) = @_; if ($xp->current_element eq 'day') { $str = $xp->original_string; $xp->setHandlers(Char => 0); } } my $p = new XML::Parser(Handlers => {Comment => sub {$cnt++;}, Char => \&tmpchar }); my $xpnb = $p->parse_start; open(REC, 'samples/REC-xml-19980210.xml'); while () { $xpnb->parse_more($_); } close(REC); $xpnb->parse_done; print "not " unless $cnt == 37; print "ok 2\n"; print "not " unless $str eq '&draft.day;'; print "ok 3\n";