man Catalyst::Test () - Test Catalyst Applications

NAME

Catalyst::Test - Test Catalyst Applications

SYNOPSIS

    # Helper
    script/test.pl

    # Tests
    use Catalyst::Test 'TestApp';
    request('index.html');
    get('index.html');

    # Run tests against a remote server
    CATALYST_SERVER='http://localhost:3000/' prove -r -l lib/ t/

    # Tests with inline apps need to use Catalyst::Engine::Test
    package TestApp;

    use Catalyst;

    sub foo : Global {
            my ( $self, $c ) = @_;
            $c->res->output('bar');
    }

    __PACKAGE__->setup();

    package main;

    use Test::More tests => 1;
    use Catalyst::Test 'TestApp';

    ok( get('/foo') =~ /bar/ );

DESCRIPTION

Test Catalyst Applications.

METHODS

get

Returns the content.

    my $content = get('foo/bar?test=1');

request

Returns a CWHTTP::Response object.

    my $res = request('foo/bar?test=1');

local_request

remote_request

Do an actual remote request using LWP.

SEE ALSO

Catalyst.

AUTHOR

Sebastian Riedel, CWsri@cpan.org

COPYRIGHT

This program is free software, you can redistribute it and/or modify it under the same terms as Perl itself.