From: Eric Wong <e@80x24.org>
Date: Fri, 9 Sep 2016 03:09:00 +0000 (+0000)
Subject: t/httpd-unix: warn about connection failure
X-Git-Tag: v1.0.0~186
X-Git-Url: http://www.git.stargrave.org/?a=commitdiff_plain;h=279955959d2242dfcb1081656806aa1426085bcd;p=public-inbox.git

t/httpd-unix: warn about connection failure

Output $! for diagnostic purposes since I've noticed this on
two slow machines, today (and seemingly, never prior).
---

diff --git a/t/httpd-unix.t b/t/httpd-unix.t
index ef827fc6..4b0f116e 100644
--- a/t/httpd-unix.t
+++ b/t/httpd-unix.t
@@ -54,6 +54,7 @@ ok(-S $unix, 'UNIX socket was bound by -httpd');
 sub check_sock ($) {
 	my ($unix) = @_;
 	my $sock = IO::Socket::UNIX->new(Peer => $unix, Type => SOCK_STREAM);
+	warn "E: $! connecting to $unix\n" unless defined $sock;
 	ok($sock, 'client UNIX socket connected');
 	ok($sock->write("GET /host-port HTTP/1.0\r\n\r\n"),
 		'wrote req to server');