From 2e7a48da6797457f77fc341303bc722efa33e48a Mon Sep 17 00:00:00 2001 From: Guillaume Delacour Date: Mon, 7 Dec 2015 01:04:10 +0100 Subject: Don't test socket pathname on GNU/Hurd --- t/stats-conns.t | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/t/stats-conns.t b/t/stats-conns.t index b864358..906b5d7 100755 --- a/t/stats-conns.t +++ b/t/stats-conns.t @@ -27,9 +27,14 @@ while (<$stats_sock>) { } like($stats, qr/STAT \d+:addr /); -$stats =~ m/STAT (\d+):addr unix:(\/[^\r\n]*)/g; +$stats =~ m/STAT (\d+):addr unix:(.*[^\r\n])/g; my $listen_fd = $1; -is($2, $filename, "unix domain socket path reported correctly"); +my $socket_path = $2; +# getsockname(2) doesn't return socket path on GNU/Hurd (and maybe others) +SKIP: { + skip "socket path checking on GNU kernel", 1 if ($^O eq 'gnu'); + is($socket_path, $filename, "unix domain socket path reported correctly"); +}; $stats =~ m/STAT (\d+):state conn_listening\r\n/g; is($1, $listen_fd, "listen socket fd reported correctly"); -- cgit v1.2.1