From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

PHISH / XML-LibXML-1.58_1 / t / 12html.t 

            

              
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

              
use Test;
BEGIN { plan tests => 6 }
use XML::LibXML;
use IO::File;
ok(1);
my $html = "example/test.html";
my $parser = XML::LibXML->new();
{
    my $doc = $parser->parse_html_file($html);
    ok($doc);
}
my $fh = IO::File->new($html) || die "Can't open $html: $!";
my $string;
{
    local $/;
    $string = <$fh>;
}
seek($fh, 0, 0);
ok($string);
$doc = $parser->parse_html_string($string);
ok($doc);
undef $doc;
$doc = $parser->parse_html_fh($fh);
ok($doc);
$fh->close();
# parsing HTML's CGI calling links
my $strhref = <<EOHTML;
<html>
    <body>
        <a href="http:/foo.bar/foobar.pl?foo=bar&bar=foo">
            foo
        </a>
        <p>test
    </body>
</html>
EOHTML
my $htmldoc;
$parser->recover(1);
eval {
    local $SIG{'__WARN__'} = sub { };
    $htmldoc = $parser->parse_html_string( $strhref );
};
# ok( not $@ );
ok( $htmldoc );