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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
|
use Test;
BEGIN { plan tests => 19 }
use XML::LibXML;
ok(1);
my $dtdstr;
{
local $/; local *DTD;
open(DTD, 'example/test.dtd') || die $!;
$dtdstr = <DTD>;
$dtdstr =~ s/\r//g;
$dtdstr =~ s/[\r\n]*$//;
close DTD;
}
ok($dtdstr);
{
# parse a DTD from a SYSTEM ID
my $dtd = XML::LibXML::Dtd->new('ignore', 'example/test.dtd');
ok($dtd);
my $newstr = $dtd->toString();
$newstr =~ s/\r//g;
$newstr =~ s/^.*?\n//;
$newstr =~ s/\n^.*\Z//m;
ok($newstr, $dtdstr);
}
{
# parse a DTD from a string
my $dtd = XML::LibXML::Dtd->parse_string($dtdstr);
ok($dtd);
}
{
# parse a DTD with a different encoding
# my $dtd = XML::LibXML::Dtd->parse_string($dtdstr, "ISO-8859-1");
# ok($dtd);
1;
}
{
# validate with the DTD
my $dtd = XML::LibXML::Dtd->parse_string($dtdstr);
ok($dtd);
my $xml = XML::LibXML->new->parse_file('example/article.xml');
ok($xml);
ok($xml->is_valid($dtd));
eval { $xml->validate($dtd) }; # throws exception
ok( !$@ );
}
{
# validate a bad document
my $dtd = XML::LibXML::Dtd->parse_string($dtdstr);
ok($dtd);
my $xml = XML::LibXML->new->parse_file('example/article_bad.xml');
ok(!$xml->is_valid($dtd));
eval {
$xml->validate($dtd);
};
print $@, "\n";
ok($@);
my $parser = XML::LibXML->new();
ok($parser->validation(1));
# this one is OK as it's well formed (no DTD)
eval{
$parser->parse_file('example/article_bad.xml');
};
ok($@);
eval {
$parser->parse_file('example/article_internal_bad.xml');
};
print $@, "\n";
ok($@);
}
# this test fails under XML-LibXML-1.00 with a segfault because the
# underlying DTD element in the C libxml library was freed twice
my $parser = XML::LibXML->new();
my $doc = $parser->parse_file('example/dtd.xml');
my @a = $doc->getChildnodes;
ok(scalar(@a),2);
undef @a;
undef $doc;
ok(1);
##
# Tests for ticket 2021
{
my $dtd = XML::LibXML::Dtd->new("","");
ok( $dtd, undef );
}
{
my $dtd = XML::LibXML::Dtd->new('', 'example/test.dtd');
ok($dtd);
}
|
