In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/3fdf66f3176c84b8e8c3d510c0694640530b27e0?hp=f3515641172f14301235d89dff009456a47e7daf>
- Log ----------------------------------------------------------------- commit 3fdf66f3176c84b8e8c3d510c0694640530b27e0 Author: Tony Cook <[email protected]> Date: Wed Oct 1 11:33:19 2014 +1000 [perl #122657] TODO checking the result of recv() on hurd M t/io/socket.t commit 338c58a0fd9c35068561f6a2f0ef63aff97c6596 Author: Leon Timmermans <[email protected]> Date: Wed Sep 24 23:17:21 2014 +0200 Compare recv return value to peername in socket test M t/io/socket.t ----------------------------------------------------------------------- Summary of changes: t/io/socket.t | 15 +++++++++++---- 1 file changed, 11 insertions(+), 4 deletions(-) diff --git a/t/io/socket.t b/t/io/socket.t index b723e3c..b51079a 100644 --- a/t/io/socket.t +++ b/t/io/socket.t @@ -101,9 +101,15 @@ SKIP: { my $buf; my $recv_peer = recv($child, $buf, 1000, 0); - # [perl #118843] - ok_child($recv_peer eq '' || $recv_peer eq $bind_name, - "peer from recv() should be empty or the remote name"); + { + use vars '$TODO'; + local $TODO; + $TODO = "[perl #122657] Hurd doesn't populate sin_len correctly" + if $^O eq "gnu"; + # [perl #118843] + ok_child($recv_peer eq '' || $recv_peer eq getpeername $child, + "peer from recv() should be empty or the remote name"); + } while(defined recv($child, my $tmp, 1000, 0)) { last if length $tmp == 0; $buf .= $tmp; @@ -127,7 +133,8 @@ done_testing(); my @child_tests; sub ok_child { my ($ok, $note) = @_; - push @child_tests, ( $ok ? "ok " : "not ok ") . curr_test() . " - $note\n"; + push @child_tests, ( $ok ? "ok " : "not ok ") . curr_test() . " - $note " + . ( $TODO ? "# TODO $TODO" : "" ) . "\n"; curr_test(curr_test()+1); } -- Perl5 Master Repository
