diff -up IO-Async-0.72/t/50resolver.t.orig IO-Async-0.72/t/50resolver.t
--- ./t/50resolver.t.orig 2018-04-11 07:34:02.723468324 +0200
+++ ./t/50resolver.t 2018-04-11 07:36:29.705556289 +0200
@@ -326,11 +326,13 @@ my $missinghost = "TbK4jM2M0OS.lm57DWIyu
SKIP: {
skip "Resolver has an answer for $missinghost", 1 if gethostbyname( $missinghost );
- my $future = wait_for_future $resolver->getaddrinfo(
+ my $future = $resolver->getaddrinfo(
host => $missinghost,
service => "80",
socktype => SOCK_STREAM,
+ timeout => 60,
);
+ wait_for { $future->is_ready } timeout => 60;
ok( $future->failure, '$future failed for missing host' );
is( ( $future->failure )[1], "resolve", '->failure [1] gives resolve' );