Mojo test inactivity_timeout long operation.

1.pl

use Mojo::Base -strict;

use Mojo::IOLoop;
use Mojolicious::Lite;
use Test::More;
use Test::Mojo;

get '/' => sub {
  my $c = shift->render_later;
  $c->inactivity_timeout(40);
  $c->delay(
    sub { Mojo::IOLoop->timer(30 => shift->begin) },
    sub { $c->render(json => {result => 'ok'}) }
  );
};

my $t = Test::Mojo->new;
$t->ua->inactivity_timeout(40);
$t->ua->max_connections(0);

$t->get_ok('/')->status_is(200)->json_is('/result' => 'ok');

done_testing();