# HG changeset patch
# User Maxim Dounin <mdounin@mdounin.ru>
# Date 1359473127 -14400
# Node ID f440a8acbf39198d9dd0318a8cb58a8dc9bd48b6
# Parent  8b554d26eb1a9b56044538aa57df989c4c7aa2ca
Tests: report connection errors.

diff --git a/lib/Test/Nginx.pm b/lib/Test/Nginx.pm
--- a/lib/Test/Nginx.pm
+++ b/lib/Test/Nginx.pm
@@ -409,7 +409,8 @@ sub http($;%) {
 		my $s = $extra{socket} || IO::Socket::INET->new(
 			Proto => 'tcp',
 			PeerAddr => '127.0.0.1:8080'
-		);
+		)
+			or die "Can't connect to nginx: $!\n";
 		log_out($request);
 		$s->print($request);
 		local $/;