This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: Making IO::Socket pass test on Win32
authorJim Cromie <jcromie@cpan.org>
Tue, 4 Apr 2006 11:07:03 +0000 (07:07 -0400)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 4 Apr 2006 15:15:19 +0000 (15:15 +0000)
Message-ID: <44328B97.2060903@gmail.com>

p4raw-id: //depot/perl@27714

ext/B/t/concise-xs.t

index 9a69030..2ae87a1 100644 (file)
@@ -118,7 +118,7 @@ use Carp;
 use Test::More tests => ( # per-pkg tests (function ct + require_ok)
                          40 + 16       # Data::Dumper, Digest::MD5
                          + 511 + 235   # B::Deparse, B
-                         + 588 + 189   # POSIX, IO::Socket
+                         + 588 + 190   # POSIX, IO::Socket
                          + 3 * ($] > 5.009)
                          + 14 * ($] >= 5.009003)
                          - 22);        # fudge
@@ -205,7 +205,7 @@ my $testpkgs = {
                      /],
               },
 
-    IO::Socket => { dflt => 'constant',                # 157/188
+    IO::Socket => { dflt => 'constant',                # 157/190
 
                    perl => [qw/ timeout socktype sockopt sockname
                             socketpair socket sockdomain sockaddr_un
@@ -213,7 +213,7 @@ my $testpkgs = {
                             register_domain recv protocol peername
                             new listen import getsockopt croak
                             connected connect configure confess close
-                            carp bind atmark accept
+                            carp bind atmark accept blocking
                             /],
 
                    XS => [qw/ unpack_sockaddr_un unpack_sockaddr_in