man Catalyst::Test () - Test Catalyst Applications

NAME

Catalyst::Test - Test Catalyst Applications

    # 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/ );

Test Catalyst Applications.

Returns the content.

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

Returns a CWHTTP::Response object.

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

Do an actual remote request using LWP.

Sebastian Riedel, CWsri@cpan.org

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