From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

PCIMPRICH / XML-SAX-ExpatXS-1.07 / t / 13errors.t 

            

              
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
57

              
use Test;
BEGIN { plan tests => 1 }
use XML::SAX::ExpatXS;
my $handler = TestH->new();
my $parser = XML::SAX::ExpatXS->new( Handler => $handler );
my $xml =<<_xml_;
<?xml version="1.0" encoding="utf-8" standalone="yes"?>
<!DOCTYPE html PUBLIC "pub" "sys">
<foo>
  <wrong&>
</foo>
_xml_
eval { $parser->parse_string($xml) };
#warn $handler->{data};
ok($handler->{data} eq '_ferr|not well-formed (invalid token) at line 4, column 9, byte 105|not well-formed (invalid token)|4|9||');
package TestH;
#use Devel::Peek;
sub new { bless {data => ''}, shift }
sub warning {
    my ($self, $ex) = @_;
    #warn("Warn\n");
    #Dump($ex);
    $self->{data} .= '_warn|' . $ex->{Message};
    $self->{data} .= '|' . $ex->{Exception};
    $self->{data} .= '|' . $ex->{LineNumber};
    $self->{data} .= '|' . $ex->{ColumnNumber};
}
sub error {
    my ($self, $ex) = @_;
    #warn("Error\n");
    #Dump($ex);
    $self->{data} .= '_err|' . $ex->{Message};
    $self->{data} .= '|' . $ex->{Exception};
    $self->{data} .= '|' . $ex->{LineNumber};
    $self->{data} .= '|' . $ex->{ColumnNumber};
}
sub fatal_error {
    my ($self, $ex) = @_;
    #warn("fatError\n");
    #Dump($ex);
    $self->{data} .= '_ferr|' . $ex->{Message};
    $self->{data} .= '|' . $ex->{Exception};
    $self->{data} .= '|' . $ex->{LineNumber};
    $self->{data} .= '|' . $ex->{ColumnNumber};
    $self->{data} .= '|' . $ex->{PublicId};
    $self->{data} .= '|' . $ex->{SystemId};
}