use strict;
use warnings;
use WWW::Mechanize;
use Test::More qw(no_plan);
my $mech = WWW::Mechanize->new( autocheck => 1 );
$mech->timeout(120); #validator page can be damn slow.
$mech->agent('Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)'); # disguise ourselves.
$mech->get( "http://validator.w3.org/" );
#print $mech->content;
my $test_html = '
Untitled Document
';
$mech->form(3);
$mech->field("fragment", $test_html);
$mech->click();
my $content = $mech->content;
my $valid = qr/This Page Is Valid HTML/i;
like($content,$valid,"valid html");