use strict;
use utf8;
use File::Temp qw(tempdir);
my $server = Test::TCP->new(
code => sub {
my ($port) = @_;
my $app = sub {
[200, [], ['OK']];
};
my $loader = Plack::Loader->auto(
port => $port,
);
$loader->run($app);
},
);
my $agent = Test::TCP->new(
code => sub {
my ($port) = @_;
my $work_dir = tempdir();
@ARGV = ('--host=127.0.0.1', "--port=$port", "--work_dir=$work_dir", "--server_url=http://127.0.0.1:@{[ $server->port ]}/");
do 'script/ukigumo-agent';
exit 0;
},
);
my $ua = LWP::UserAgent->new(timeout => 3);
my $res = $ua->get("http://127.0.0.1:@{[ $agent->port ]}");
is $res->code, 200;
done_testing;