Blob Blame History Raw
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' );