#!perl
use strict;
use utf8;
use warnings qw(all);

use FindBin qw($Bin $Script);
use LWP::Protocol::Net::Curl;
use LWP::UserAgent;
use Test::HTTP::Server;
use Test::More;

my $server = Test::HTTP::Server->new;
local $ENV{no_proxy} = '*';

my $now = time;

my $ua = LWP::UserAgent->new(keep_alive => 4);

is(exists($ua->{curl_multi}), '', q(LWP::UserAgent object clean));
my $res = $ua->post(
    $server->uri . q(echo/body),
    q(Accept-Encoding) => q(gzip, bzip2),
    Skipped => undef,
    Content => {
        a       => 1,
        b       => 2,
        c       => 3,
        time    => $now,
        string  => "\x{41f}\x{435}\x{440}\x{43b}",
    },
);
isa_ok($ua->{curl_multi}, q(Net::Curl::Multi));

isa_ok($res, q(HTTP::Response));
ok($res->is_success, q(is_success));
like($res->decoded_content, qr/\b${now}\b/sx, q(content pingback));

TODO: {
    local $TODO = "Occasionally fails under FreeBSD & OpenBSD; might be not our fault but OS's";

    $res = $ua->request(HTTP::Request->new(
        PUT => $server->uri . q(echo/body),
        HTTP::Headers->new,
        q(zxcvb) x 10,
    ));
    is($res->code, 200, q(PUT));
    like($res->decoded_content, qr/^(?:zxcvb){10}$/sx, q(PUT decoded_content()));
}

$res = $ua->request(HTTP::Request->new(
    DELETE => $server->uri . q(echo/body),
));
is($res->code, 200, q(DELETE));

$res = $ua->request(HTTP::Request->new(DUMMY => $server->uri . q(echo/body)));
isnt($res->code, 200, q(unsupported method; ) . $res->status_line);

LWP::Protocol::implementor(file => q(LWP::Protocol::Net::Curl));
$res = $ua->get(qq(file://$Bin/$Script), q(Accept-Encoding) => q(dummy));
is(length $res->content, -s __FILE__, q(quine));

done_testing(10);