|
|
WWW:::Mechanize - Anyone have sample scripts?
12-15-2011
|
|
Test::WWW::Mechanize::CGIApp(3pm) User Contributed Perl Documentation Test::WWW::Mechanize::CGIApp(3pm) NAME
Test::WWW::Mechanize::CGIApp - Test::WWW::Mechanize for CGI::Application SYNOPSIS
# We're in a t/*.t test script... use Test::WWW::Mechanize::CGIApp; my $mech = Test::WWW::Mechanize::CGIApp->new; # test a class that uses CGI::Application calling semantics. # (in this case we'll new up an instance of the app and call # its ->run() method) # $mech->app("My::WebApp"); $mech->get_ok("?rm=my_run_mode&arg1=1&arg2=42"); # test a class that uses CGI::Application::Dispatch # to locate the run_mode # (in this case we'll just call the ->dispatch() class method). # my $dispatched_mech = Test::WWW::Mechanize::CGIApp->new; $dispatched_mech->app("My::DispatchApp"); $mech->get_ok("/WebApp/my_run_mode?arg1=1&arg2=42"); # create an anonymous sub that this class will use to # handle the request. # # this could be useful if you need to do something novel # after creating an instance of your class (e.g. the # fiddle_with_stuff() below) or maybe you have a unique # way to get the app to run. # my $custom_mech = Test::WWW::Mechanize::CGIApp->new; $custom_mech->app( sub { require "My::WebApp"; my $app = My::WebApp->new(); $app->fiddle_with_stuff(); $app->run(); }); $mech->get_ok("?rm=my_run_mode&arg1=1&arg2=42"); # at this point you can play with all kinds of cool # Test::WWW::Mechanize testing methods. is($mech->ct, "text/html"); $mech->title_is("Root", "On the root page"); $mech->content_contains("This is the root page", "Correct content"); $mech->follow_link_ok({text => 'Hello'}, "Click on Hello"); # ... and all other Test::WWW::Mechanize methods DESCRIPTION
This package makes testing CGIApp based modules fast and easy. It takes advantage of Test::WWW::Mechanize to provide functions for common web testing scenarios. For example: $mech->get_ok( $page ); $mech->title_is( "Invoice Status", "Make sure we're on the invoice page" ); $mech->content_contains( "Andy Lester", "My name somewhere" ); $mech->content_like( qr/(cpan|perl).org/, "Link to perl.org or CPAN" ); For applications that inherit from CGI::Application it will handle requests by creating a new instance of the class and calling its "run" method. For applications that use CGI::Application::Dispatch it will call the "dispatch" class method. If neither of these options are the right thing, you can set a reference to a sub that will be used to handle the request. This module supports cookies automatically. Check out Test::WWW::Mechanize for more information about all of the cool things you can test! CONSTRUCTOR
new Behaves like, and calls, Test::WWW::Mechanize's "new" method. It optionally uses an "app" parameter (see below), any other parameters get passed to Test::WWW::Mechanize's constructor. Note that you can either pass the name of the CGI::Application into the constructor using the "app" parameter or set it later using the "app" method. use Test::WWW::Mechanize::CGIApp; my $mech = Test::WWW::Mechanize::CGIApp->new; # or my $mech = Test::WWW::Mechanize::CGIApp->new(app => 'TestApp'); METHODS
$mech->app($app_handler) This method provides a mechanism for informing Test::WWW::Mechanize::CGIApp how it should go about executing your run_mode. If you set it to the name of a class, then it will load the class and either create an instance and ->run() it (if it's CGI::Application based), invoke the ->dispatch() method if it's CGI::Application::Dispatch based, or call the supplied anonymous subroutine and let it do all of the heavy lifting. SEE ALSO
Related modules which may be of interest: Test::WWW::Mechanize, WWW::Mechanize. Various implementation tricks came from Test::WWW::Mechanize::Catalyst. AUTHOR
George Hartzell, "<hartzell@alerce.com>" based on Test::WWW::Mechanize::Catalyst by Leon Brocard, "<acme@astray.com>". COPYRIGHT
Copyright (C) 2007, George Hartzell This module is free software; you can redistribute it or modify it under the same terms as Perl itself. perl v5.8.8 2008-03-12 Test::WWW::Mechanize::CGIApp(3pm)