| (Top) < Other CGI Issues | > |
Test::More
WWW::Mechanize |
Write automated scripts to test your application
See http://www.petdance.com/perl/
Quick example:
use Test::More 'no_plan';
use WWW::Mechanize;
my $agent = WWW::Mechanize->new;
my $response = $agent->get("http://localhost/drink.cgi");
ok($response->is_success, "Loaded the Drinkomat");
$response = $agent->submit_form( form_name => 'drink',
fields => { drink_type => 'beer' });
ok($response->is_success, "Submitted request for beer");
# ... etc. |