Source

perl-begin / Tests / valid-html-tidy.t

Full commit
#!/usr/bin/perl

use strict;
use warnings;

use Test::More tests => 1;

use HTML::Tidy;
use File::Find::Object::Rule;
use IO::All;

local $SIG{__WARN__} = sub {
    my $w = shift;
    if ($w !~ /\AUse of uninitialized/)
    {
        die $w;
    }
    return;
};

my $tidy = HTML::Tidy->new({ output_xhtml => 1, });
$tidy->ignore( type => TIDY_WARNING, type => TIDY_INFO );

my $error_count = 0;

for my $fn (File::Find::Object::Rule->file()->name(qr/\.x?html\z/)->in("./dest"))
{
    $tidy->parse( $fn, (scalar io->file($fn)->slurp()));

    for my $message ( $tidy->messages ) {
        $error_count++;
        diag( $message->as_string);
    }
}

# TEST
is ($error_count, 0, "No errors");