#!/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( REMOTE_USER => "nagiosadmin" );
$mech->env( NAGIOS_CGI_CONFIG => "etc/cgi.cfg" );
$mech->cgi_application("$cgi_dir/extinfo.cgi");

$mech->get_ok("http://localhost/");

$mech->title_is("Extended Information");

html_ok( $lint, $mech->content, "HTML correct" );