HTML-T5
view release on metacpan or search on metacpan
#!perl -T
BEGIN
{
$ENV{LC_ALL} = 'C';
# See: https://github.com/shlomif/html-tidy5/issues/6
$ENV{LANG} = 'en_US.UTF-8';
};
use 5.010001;
use warnings;
use strict;
use Test::More tests => 1;
use HTML::T5;
my $tidy = HTML::T5->new(
{
tidy_mark => 0,
add_xml_decl => 1,
output_xhtml => 1,
doctype => 'strict',
clean => 1,
css_prefix => 'myprefix',
drop_empty_paras => 0,
enclose_block_text => 1,
escape_cdata => 1,
hide_comments => 1,
replace_color => 1,
repeated_attributes => 'keep-first',
break_before_br => 1,
vertical_space => 1,
newline => 'cr',
}
);
my $input = <<'EOD';
<h1>example</h1>
Here's some <B>ed and <BR/>eakfest MarkUp: <!-- ... -->
<font color="#0000FF" color="RED">...</font>
<p></P>
EOD
my $expected = <<'EOD';
<?xml version="1.0"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>
</title>
<style type="text/css">
/*<![CDATA[*/
span.myprefix1 {color: blue}
/*]]>*/
</style>
</head>
<body>
<h1>example</h1>
<p>Here's some <b>ed and
<br />
eakfest MarkUp: <span class="myprefix1">...</span></b></p>
<p>
</p>
</body>
</html>
EOD
my @expected = split( /\n/, $expected );
my $result = $tidy->clean( $input );
sub workaround_for_old_tidy
{
$result =~ s/(myprefix)-/$1/g;
return;
}
workaround_for_old_tidy();
my @result = split(/\r/, $result);
is_deeply( \@result, \@expected, 'Cleaned stuff looks like what we expected' );
( run in 1.978 second using v1.01-cache-2.11-cpan-7fcb06a456a )