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
|
## skip Test::Tabs
use Test::More;
use HTML::HTML5::Parser;
eval { require XML::LibXML::Devel::SetLineNumber; 1 }
or plan skip_all => "Need XML::LibXML::Devel::SetLineNumber";
plan tests => 6;
my $dom = HTML::HTML5::Parser->load_html(string => <<'HTML');
<!doctype html>
<html>
<title>Test 6: XML::LibXML::Devel::SetLineNumber</title>
<p>
<b>This</b> <i>is</i>
<a href="http://example.com/">a</a>
<tt>test!</tt>
</html>
HTML
is(
$dom->documentElement->line_number,
2,
'root element has correct line number',
);
ok(
defined $dom->getElementsByTagName('head')->get_node(1)->line_number,
'head element has a line number',
);
is(
$dom->getElementsByTagName('p')->get_node(1)->line_number,
4,
'p element has correct line number',
);
is(
$dom->getElementsByTagName('b')->get_node(1)->line_number,
5,
'b element has correct line number',
);
is(
$dom->getElementsByTagName('i')->get_node(1)->line_number,
5,
'i element has correct line number',
);
is(
$dom->getElementsByTagName('a')->get_node(1)->line_number,
6,
'a element has correct line number',
);
=head1 PURPOSE
Check that L<XML::LibXML::Devel::SetLineNumber> can be used to get line
number information for XML elements.
=head1 AUTHOR
Toby Inkster, E<lt>tobyink@cpan.orgE<gt>
=head1 COPYRIGHT AND LICENCE
Copyright (C) 2012 by Toby Inkster
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
|
