### ----------------------------------------------------
### -- HTTP::UserAgent
### -- Licenses: MIT
### -- Authors: Filip Sergot
### -- File: t/110-redirect-cookies.rakutest
### ----------------------------------------------------
use HTTP::UserAgent;
use Test::Util::ServerPort;
use Test;

my $port = get-unused-port();

use lib $*PROGRAM.sibling('lib').Str;
use TestServer;

%*ENV<NO_PROXY> = 'localhost';

my $test-server = test-server(my $done-promise = Promise.new, :$port);
my $ua          = HTTP::UserAgent.new;

plan 1;

ok $ua.get("http://localhost:$port/one").is-success, 'redirect preserves cookies';

$done-promise.keep("shutdown");

# vim: expandtab shiftwidth=4


