Non-Blocking-Test.pl

#!/usr/bin/env perl
use Test::More;
use Test::Mojo;
use Mojolicious::Lite;
use Mojo::UserAgent;
$|++;

my $t = Test::Mojo->new;
my $app = $t->app;

my $c = Mojolicious::Controller->new;

# Simple route
get '/' => sub {
  shift->render(text => 'Hello World');
};

# Helper with an async request inside
app->helper(
  get_doc => sub {
    my ($c, $path, $cb) = @_;
    my $delay = Mojo::IOLoop->delay;
    my $ua = Mojo::UserAgent->new;
    $delay->begin;
    $ua->get(
      $path => sub {
	shift;
	$cb->(shift->success->body);
        $delay->end;
      });

    # Start IOLoop if not started already
    $delay->wait unless $delay->ioloop->is_running;
  }
);

# Use async helper - works fine
app->get_doc(
  'https://www.google.de/' => sub {
    my $doc = shift;
    ok($doc, 'This is an XRD 1');
  });

# Get Resource - works fine
$t->get_ok('/');

# Use async helper again - works kind of fine
app->get_doc(
  'https://www.google.de/' => sub {
    my $doc = shift;
    ok($doc, 'This is an XRD 2');
  });

# Get resource - Not reached ever
$t->get_ok('/');

done_testing;

Thank you very much!