view release on metacpan or  search on metacpan

xt/001-server-with-client.t  view on Meta::CPAN

use warnings;

use Test::More;
use Plack::Test::Server;

use Data::Dumper;

use PONAPI::Server;
use IPC::Cmd qw/can_run/;

delete @ENV{qw/ HTTP_PROXY http_proxy /};

# Rather than just testing PONAPI::Client, let's make sure we're
# working on other backends too.  We always test PONAPI::Client,
# but if available, we'll also test HTTP::Tiny and curl on the
# command line.
my $have_ponapi_client = do { local $@; !!eval { require PONAPI::Client; 1 } };
my $have_http_tiny     = do { local $@; !!eval { require HTTP::Tiny; 1 } };
my $have_curl          = can_run('curl');

if ( !$have_ponapi_client && !$have_http_tiny && !$have_curl ) {