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
|
# $Id: 29_struct_errors.t,v 1.1.2.2 2006/06/22 14:34:47 pajas Exp $
# First version of the new structured error test suite
use Test;
BEGIN {
use XML::LibXML;
if ( XML::LibXML::HAVE_STRUCT_ERRORS() ) {
plan tests => 6;
} else {
plan tests => 1;
}
}
eval {
use XML::LibXML::Error;
use XML::LibXML::ErrNo;
$loaded = 1;
};
ok(!$@ && $loaded);
if (XML::LibXML::HAVE_STRUCT_ERRORS() ) {
my $p = XML::LibXML->new();
my $xmlstr = '<X></Y>';
eval {
my $doc = $p->parse_string( $xmlstr );
};
my $err = $@;
ok(defined $err);
if ($err) {
ok(ref($err), "XML::LibXML::Error");
ok($err->domain(), "parser");
ok($err->line(), 1);
ok($err->code == XML::LibXML::ErrNo::ERR_TAG_NAME_MISMATCH);
} else {
fail() for 1..3;
}
} # HAVE_STRUCT_ERRORS
|
