#!perl use strict; use Test::More tests => 3; use Test::WWW::Mechanize; my $agent = Test::WWW::Mechanize->new; $agent->get_ok( 'http://192.168.44.132/reporter' ); $agent->field( 'Username:', 'admin' ); $agent->field( 'Password:', 'password' ); $agent->submit_form( form_name => 'f' ); $agent->follow_link_ok( { text => 'Home', n => '1' } ); $agent->field( 'query', 'test' ); $agent->submit_form( form_name => 'f' ); $agent->follow_link_ok( { text => 'Next >>', n => '1' } ); #### Reporter - Login



Login Login logo
Please enter your user name and password to login to Reporting:
 
User Name:
Password: