more tests for keep alive connection timeout

mojolicious · Nov 6, 2013 · 153460f · 153460f
1 parent abd72f8
commit 153460f
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/t/mojo/user_agent.t b/t/mojo/user_agent.t
@@ -276,7 +276,9 @@ ok !$tx->success, 'not successful';
 is $tx->error, 'Inactivity timeout', 'right error';
 
 # Keep alive connection times out
-my $id;
+my ($fail, $id);
+my $error = $ua->on(error => sub { $fail++ });
+ok $ua->has_subscribers('error'), 'has subscribers';
 $ua->get(
   '/' => sub {
     my ($ua, $tx) = @_;
@@ -286,7 +288,10 @@ $ua->get(
   }
 );
 Mojo::IOLoop->start;
+ok !$fail, 'error event has not been emitted';
 ok !Mojo::IOLoop->stream($id), 'connection timed out';
+$ua->unsubscribe(error => $error);
+ok !$ua->has_subscribers('error'), 'unsubscribed successfully';
 
 # Response exceeding message size limit
 $ua->once(