From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 26 Dec 2001 20:08:14 +0000 (+0000)
Subject: Re: socketpair emulation
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cd0506f1aea5d4c63786ccf0d56ad58cad524917;p=p5sagit%2Fp5-mst-13.2.git

Re: socketpair emulation
Message-ID: <20011226200813.A11903@Bagpuss.unfortu.net>

p4raw-id: //depot/perl@13906
---

diff --git a/ext/Socket/socketpair.t b/ext/Socket/socketpair.t
index 804e3af..d2558dc 100644
--- a/ext/Socket/socketpair.t
+++ b/ext/Socket/socketpair.t
@@ -31,7 +31,7 @@ if( !$Config{d_alarm} ) {
     if ($@ =~ /^Your vendor has not defined Socket macro AF_UNIX/) {
       plan skip_all => 'No AF_UNIX';
     } else {
-      plan tests => 44;
+      plan tests => 45;
     }
   }
 }
@@ -71,7 +71,9 @@ ok (shutdown(LEFT, SHUT_WR), "shutdown left for writing");
 {
   local $SIG{ALRM} = sub { warn "EOF on right took over 3 seconds" };
   alarm 3;
+  $! = 0;
   ok (eof RIGHT, "right is at EOF");
+  is ($!, '', 'and $! should report no error');
   alarm 60;
 }