| (Top) < Data::FormValidator example | > |
Testing
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. |
|
CGI::Application (v.2.0) |
34 |