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
|
## skip Test::Tabs
use Test::More tests => 2;
use HTML::HTML5::Parser;
my $parser = HTML::HTML5::Parser->new;
my $html = <<HTML;
<title>foo</title>
<object></object>
<p>foo</p>
HTML
my $dom_4 = $parser->parse_string('<!doctype html system "html4.dtd">'.$html);
my $dom_5 = $parser->parse_string('<!doctype html>'.$html);
my ($object_4) = $dom_4->getElementsByTagName('object');
my ($object_5) = $dom_5->getElementsByTagName('object');
is($object_4->parentNode->tagName, 'head', 'HTML 4 allows <object> in <head>.');
is($object_5->parentNode->tagName, 'body', 'HTML 5 disallows <object> in <head>.');
=head1 PURPOSE
Test that HTML 4 allows C<< <object> >> elements in C<< <head> >>.
=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.
|
