Merge pull request #431 from wchristian/win32_harakiri_hang_fix

prevent the harakiri test from taking 3 minutes on win32
plack · Sep 23, 2013 · 4b6481a · 4b6481a
2 parents 6e3c7a7 + 0e37636
commit 4b6481a
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/t/HTTP-Server-PSGI/harakiri.t b/t/HTTP-Server-PSGI/harakiri.t
@@ -6,6 +6,8 @@ use Test::More;
 use Test::TCP;
 use Test::Requires qw(LWP::UserAgent);
 
+my $ua_timeout = 3;
+
 test_tcp(
     server => sub {
         my $port = shift;
@@ -24,11 +26,11 @@ test_tcp(
                 ];
             },
         );
-        sleep 5; # to block
+        sleep $ua_timeout + 2; # to block
     },
     client => sub {
         my $port = shift;
-        my $ua = LWP::UserAgent->new;
+        my $ua = LWP::UserAgent->new( timeout => $ua_timeout );
         my $res = $ua->get("http://127.0.0.1:$port/");
         ok $res->is_success;
         is $res->code, 200;