#!/usr/bin/perl

use Modern::Perl;
use Test::More tests => 3;
use Test::WWW::Mechanize;

my $user     = 'koha';
my $password = 'koha';
my $intranet = $ENV{KOHA_INTRANET_URL};
my $search_term = 'd';

my $agent = Test::WWW::Mechanize->new( autocheck => 1 );
$agent->get_ok( "$intranet/cgi-bin/koha/mainpage.pl", 'connect to intranet' );
$agent->form_name('loginform');
$agent->field( 'password', $password );
$agent->field( 'userid',   $user );
$agent->field( 'branch',   '' );
$agent->click_ok( '', 'login to staff client' );

$agent->get_ok( "$intranet/cgi-bin/koha/catalogue/search.pl?language=en" , "got search on intranet");
$agent->form_number(1);
$agent->field('idx', 'kw');
$agent->field('q', $search_term);
$agent->click();
