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
|
use strict;
use warnings;
=head1 DESCRIPTION
Getting wrong result when parsing HTML string as a scalar reference.
See L<https://rt.cpan.org/Ticket/Display.html?id=87089> .
=cut
use Test::More tests => 2;
use XML::LibXML;
my $parser = XML::LibXML->new();
# Parse HTML string as scalar
{
my $dom = $parser->load_html(string => '<!DOCTYPE html><html>');
# TEST
is ($dom->toStringHTML, "<!DOCTYPE html>\n<html></html>\n",
"Parse HTML string as scalar");
}
# Parse HTML string as scalar reference
{
my $dom = $parser->load_html(string => \'<!DOCTYPE html><html>');
# TEST
is ($dom->toStringHTML, "<!DOCTYPE html>\n<html></html>\n",
"Parse HTML string as scalar reference");
}
|
