File Coverage

blib/lib/Plack/Test/ExternalServer.pm

Criterion	Covered	Total	%
statement	30	30	100.0
branch	3	6	50.0
condition	3	6	50.0
subroutine	7	7	100.0
pod	0	1	0.0
total	43	50	86.0

use strict;
use warnings;

package Plack::Test::ExternalServer; # git description: 0.01-3-g19ad453
# ABSTRACT: Run HTTP tests on external live servers

our $VERSION = '0.02';

use URI;
use Carp ();
use LWP::UserAgent;

#pod =head1 SYNOPSIS
#pod
#pod     $ PLACK_TEST_IMPL=Plack::Test::ExternalServer \
#pod       PLACK_TEST_EXTERNALSERVER_URI=http://myhost.example/myapp/ \
#pod       perl my_plack_test.t
#pod
#pod =head1 DESCRIPTION
#pod
#pod This module allows your to run your Plack::Test tests against an external
#pod server instead of just against a local application through either mocked HTTP
#pod or a locally spawned server.
#pod
#pod See L on how to write tests that can use this module.
#pod
#pod =head1 ENVIRONMENT VARIABLES
#pod
#pod =over 4
#pod
#pod =item PLACK_TEST_EXTERNALSERVER_URI
#pod
#pod The value of this variable will be used as the base uri for requests to the
#pod external server.
#pod
#pod =back
#pod
#pod =head1 SEE ALSO
#pod
#pod L
#pod
#pod L
#pod
#pod L
#pod
#pod =begin Pod::Coverage
#pod
#pod test_psgi
#pod
#pod =end Pod::Coverage
#pod
#pod =cut

sub test_psgi {
    my %args = @_;

    my $client = delete $args{client} or Carp::croak 'client test code needed';
    my $ua     = delete $args{ua} || LWP::UserAgent->new;
    my $base   = $ENV{PLACK_TEST_EXTERNALSERVER_URI} || delete $args{uri};
       $base   = URI->new($base) if $base;

    $client->(sub {
        my ($req) = shift->clone;

        if ($base) {
            my $uri = $req->uri->clone;
            $uri->scheme($base->scheme);
            $uri->host($base->host);
            $uri->port($base->port);
            $uri->path($base->path . $uri->path);
            $req->uri($uri);
        }

        return $ua->request($req);
    });
}

1;

__END__