package Plack::Test; use strict; use warnings; use parent qw(Exporter); our @EXPORT = qw(test_psgi); our $Impl; $Impl ||= $ENV{PLACK_TEST_IMPL} || "MockHTTP"; sub test_psgi { eval "require Plack::Test::$Impl;"; die $@ if $@; no strict 'refs'; if (ref $_[0] && @_ == 2) { @_ = (app => $_[0], client => $_[1]); } &{"Plack::Test::$Impl\::test_psgi"}(@_); } 1; __END__ =head1 NAME Plack::Test - Test PSGI applications with various backends =head1 SYNOPSIS use Plack::Test; # named params test_psgi app => sub { my $env = shift; return [ 200, [ 'Content-Type' => 'text/plain' ], [ "Hello World" ] ], }, client => sub { my $cb = shift; my $req = HTTP::Request->new(GET => "http://localhost/hello"); my $res = $cb->($req); like $res->content, qr/Hello World/; }; use HTTP::Request::Common; # positional params (app, client) my $app = sub { return [ 200, [], [ "Hello "] ] }; test_psgi $app, sub { my $cb = shift; my $res = $cb->(GET "/"); is $res->content, "Hello"; }; =head1 DESCRIPTION Plack::Test is a unified interface to test PSGI applications using L and L objects. It also allows you to run PSGI applications in various ways. The default backend is C, but you may also use any L implementation to run live HTTP requests against at web server =head1 FUNCTIONS =over 4 =item test_psgi test_psgi $app, $client; test_psgi app => $app, client => $client; Runs the client test code C<$client> against a PSGI application C<$app>. The client callback gets one argument C<$cb>, a callback that accepts an C object and returns an C object. Use L to import shortcuts for creating requests for C, C, C, and C operations. For your convenience, the C given to the callback automatically uses the HTTP protocol and the localhost (I<> by default), so the following code just works: use HTTP::Request::Common; test_psgi $app, sub { my $cb = shift; my $res = $cb->(GET "/hello"); }; Note that however, it is not a good idea to pass an arbitrary (i.e. user-input) string to C or even C<< HTTP::Request->new >> by assuming that it always represents a path, because: my $req = GET "//foo/bar"; would represent a request for a URL that has no scheme, has a hostname I and a path I, instead of a path I which you might actually want. =back =head1 OPTIONS Specify the L backend using the environment variable C or C<$Plack::Test::Impl> package variable. The available values for the backend are: =over 4 =item MockHTTP (Default) Creates a PSGI env hash out of HTTP::Request object, runs the PSGI application in-process and returns HTTP::Response. =item Server Runs one of Plack::Handler backends (C by default) and sends live HTTP requests to test. =item ExternalServer Runs tests against an external server specified in the C environment variable instead of spawning the application in a server locally. =back For instance, test your application with the C server backend with: > env PLACK_TEST_IMPL=Server PLACK_SERVER=HTTP::Server::ServerSimple \ prove -l t/test.t =head1 AUTHOR Tatsuhiko Miyagawa =cut