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
|
use Test;
BEGIN { use XML::LibXML;
if ( XML::LibXML::HAVE_STRUCT_ERRORS() ) {
plan tests => 4;
}else{
plan tests => 2;
}
}
END { ok(0) unless $loaded }
use XML::LibXML::Error;
$loaded = 1;
ok(1);
my $p = XML::LibXML->new();
my $xmlstr = <<EOX;
<X></Y>
EOX
eval {
my $doc = $p->parse_string( $xmlstr );
};
if ( $@ ) {
if ( ref( $@ ) ) {
ok(ref($@), "XML::LibXML::Error");
ok($@->domain(), "parser");
ok($@->line(), 1);
# warn "se: ", $@;
}
else {
# warn "me: ", $@;
ok(1);
}
}
|
