Checking good HTML



examples/www/static_lint.t
#!/usr/bin/perl
use strict;
use warnings;

use Test::More tests => 2;
use Test::HTML::Lint;
use LWP::Simple qw(get);


my $home = get 'http://localhost:8080/';
ok $home, 'There is a response';
html_ok $home, 'HTML OK';

$ perl static_lint.t
1..2
ok 1 - There is a response
ok 2 - HTML OK