Added HTTP::Micro.

This is an extremely stripped down HTTP::Tiny, i.e. not comformant
with HTTP/1.1. Basically only GET and POST should work, and
only for explicit content-lengths; chunking is not implemented.
This commit is contained in:
Brian Fraser fraserb@gmail.com
2012-08-08 16:45:28 -03:00
parent d77a3a19f6
commit 028fa7a047
2 changed files with 485 additions and 0 deletions

27
t/lib/HTTPMicro.t Normal file
View File

@@ -0,0 +1,27 @@
#!/usr/bin/perl
BEGIN {
die "The PERCONA_TOOLKIT_BRANCH environment variable is not set.\n"
unless $ENV{PERCONA_TOOLKIT_BRANCH} && -d $ENV{PERCONA_TOOLKIT_BRANCH};
unshift @INC, "$ENV{PERCONA_TOOLKIT_BRANCH}/lib";
};
use strict;
use warnings FATAL => 'all';
use English qw(-no_match_vars);
use Test::More;
use HTTP::Tiny;
use HTTPMicro;
my $test_url = "http://www.google.com";
my $tiny = HTTP::Tiny->new(max_redirect => 0)->request('GET', $test_url);
my $micro = HTTP::Micro->new->request('GET', $test_url);
is_deeply(
$micro->{content},
$tiny->{content},
"HTTP::Micro behaves like HTTP::Tiny (with max_redirect) for $test_url"
);
done_testing;