#!perl -Tw

use strict;
use warnings;

use Test::More tests => 4;

BEGIN { use_ok( 'Test::HTML::Lint' ); }
BEGIN { use_ok( 'HTML::Lint' ); }
BEGIN { use_ok( 'HTML::Lint::Error' ); }

my $lint = HTML::Lint->new();
$lint->only_types( HTML::Lint::Error::FLUFF );

# This code is invalid, but the linter should ignore it
my $chunk = << 'END';
<P><TABLE>This is a fine chunk of code</P>
END

html_ok( $lint, $chunk, 'STRUCTUREally naughty code passed' );