Future-HTTP

 view release on metacpan or  search on metacpan

t/01-anyevent-http.t  view on Meta::CPAN

    require Future::HTTP::AnyEvent;
    1;
};
my $err = $@;
if( !$ok) {
    plan skip_all => "Couldn't load Future::HTTP::AnyEvent: $err";
    exit;
};

delete @ENV{ qw[
    HTTP_PROXY
    http_proxy
    HTTP_PROXY_ALL
    http_proxy_all
    HTTPS_PROXY
    https_proxy
    CGI_HTTP_PROXY
    ALL_PROXY
    all_proxy
] };

diag( "Version of AnyEvent::HTTP: " . AnyEvent::HTTP->VERSION );

my $server = Test::HTTP::LocalServer->spawn(
    #debug => 1
);

t/01-http-tiny-paranoid.t  view on Meta::CPAN

    1;
};

my $err = $@;
if( !$ok) {
    plan skip_all => "Couldn't load Future::HTTP::Tiny::Paranoid: $err";
};
plan tests => 11;

delete @ENV{ qw[
    HTTP_PROXY
    http_proxy
    HTTP_PROXY_ALL
    http_proxy_all
    HTTPS_PROXY
    https_proxy
    CGI_HTTP_PROXY
    ALL_PROXY
    all_proxy
] };

my $server = Test::HTTP::LocalServer->spawn(
    #debug => 1
);

diag( "Version of HTTP::Tiny::Paranoid: " . HTTP::Tiny::Paranoid->VERSION );
my $url = $server->url;

t/01-http-tiny.t  view on Meta::CPAN

use Future::HTTP::Tiny;
use HTTP::Tiny;

plan tests => 11;
my $server = Test::HTTP::LocalServer->spawn(
    #debug => 1
);

delete @ENV{ qw[
    HTTP_PROXY
    http_proxy
    HTTP_PROXY_ALL
    http_proxy_all
    HTTPS_PROXY
    https_proxy
    CGI_HTTP_PROXY
    ALL_PROXY
    all_proxy
] };

diag( "Version of HTTP::Tiny: " . HTTP::Tiny->VERSION );
my $ua = Future::HTTP::Tiny->new();
ok !$ua->is_async, 'is_async is false';
my $url = $server->url;

my ($body,$headers) = $ua->http_get($url)->get;

t/01-mojo.t  view on Meta::CPAN

};
my $err = $@;
if( !$ok) {
    plan skip_all => "Couldn't load Future::HTTP::Mojo: $err";
    exit;
};

plan tests => 12;

delete @ENV{ qw[
    HTTP_PROXY
    http_proxy
    HTTP_PROXY_ALL
    http_proxy_all
    HTTPS_PROXY
    https_proxy
    CGI_HTTP_PROXY
    ALL_PROXY
    all_proxy
] };

diag( "Version of Mojolicious: " . Mojolicious->VERSION );

my $server = Test::HTTP::LocalServer->spawn(
    #debug => 1
);

t/01-netasync.t  view on Meta::CPAN

};
my $err = $@;
if( !$ok) {
    plan skip_all => "Couldn't load Net::Async::HTTP: $err";
    exit;
};
plan tests => 11;


delete @ENV{ qw[
    HTTP_PROXY
    http_proxy
    HTTP_PROXY_ALL
    http_proxy_all
    HTTPS_PROXY
    https_proxy
    CGI_HTTP_PROXY
    ALL_PROXY
    all_proxy
] };

diag( "Version of Net::Async::HTTP: " . Net::Async::HTTP->VERSION );

my $server = Test::HTTP::LocalServer->spawn(
    #debug => 1
);