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;
our $VERSION = '0.01';
# ABSTRACT: Run HTTP tests on external live servers

use URI;
use Carp;
use LWP::UserAgent;


sub test_psgi {
    my %args = @_;

    my $client = delete $args{client} or 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__