use WWW::Mechanize;
use Test::More qw /no_plan/;
my $base = 'myuri';  # fake value
my $mech = WWW::Mechanize->new;
my $form_name = 'searchform';
my $field_name = 'search';
my $term = '';

$mech->get($base);
$mech->submit_form(
    form_name => $form_name,
    fields    => { $field_name => $term},
);
ok($mech->status == 400,'empty searches should have a 400 status');
ok($mech->content =~ /no search term/i, 'and a chide about having no search term');