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.