
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 qw[-Engine=Test];
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 HTTP::Response object.
my $res = request('foo/bar?test=1');
Do an actual remote request using LWP.


Sebastian Riedel, sri@cpan.org

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