Automatic Testing with Perl
Prev	Chapter 12. Web Applications	Next

12.6. Checking good HTML

Example 12-3. 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://test_server/';
ok $home, 'There is a response';
html_ok $home, 'HTML OK';

HTML::Lint
Test::HTML::Lint

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

Prev	Home (Copyright Gabor Szabo)	Next
Fetching a not-existing static page	Up	Checking bad HTML

If you are interested in on-site trainings by the author, please contact me directly.