40 lines
734 B
Perl
40 lines
734 B
Perl
#!/usr/bin/perl
|
|
|
|
use warnings;
|
|
use strict;
|
|
use FindBin qw($Bin);
|
|
|
|
use Test::More;
|
|
|
|
eval "use Test::HTML::Lint";
|
|
if ($@) {
|
|
plan skip_all => "Need Test::HTML::Lint";
|
|
}
|
|
|
|
eval "use Test::WWW::Mechanize::CGI";
|
|
if ($@) {
|
|
plan skip_all => "Need Test::WWW::Mechanize::CGI";
|
|
}
|
|
|
|
my $lint;
|
|
eval '$lint = HTML::Lint->new( only_types => HTML::Lint::Error::STRUCTURE )';
|
|
|
|
plan tests => 3;
|
|
|
|
chdir $Bin or die "Cannot chdir";
|
|
|
|
my $topdir = "$Bin/..";
|
|
my $cgi_dir = "$topdir/cgi";
|
|
|
|
my $mech = Test::WWW::Mechanize::CGI->new;
|
|
|
|
$mech->env( NAGIOS_CGI_CONFIG => "etc/cgi.cfg" );
|
|
$mech->cgi_application("$cgi_dir/history.cgi");
|
|
|
|
$mech->get_ok("http://localhost/");
|
|
|
|
$mech->title_is("Nagios History");
|
|
|
|
html_ok( $lint, $mech->content, "HTML correct" );
|
|
|