/dports/lang/perl5.30/perl-5.30.3/cpan/IO-Socket-IP/t/ |
H A D | 05local-server-v6.t | 32 foreach my $socktype (qw( SOCK_STREAM SOCK_DGRAM )) { 34 ( $socktype eq "SOCK_STREAM" ? ( Listen => 1 ) : () ), 37 Type => Socket->$socktype, 45 is( $testserver->socktype, Socket->$socktype, "\$testserver->socktype for $socktype" ); 54 $socket->socket( $AF_INET6, Socket->$socktype, 0 ) 57 …etaddrinfo( "::1", $testserver->sockport, { family => $AF_INET6, socktype => Socket->$socktype } ); 62 my $testclient = ( $socktype eq "SOCK_STREAM" ) ? 70 is( $testclient->socktype, Socket->$socktype, "\$testclient->socktype for $socktype" ); 74 "\$socket->sockname for $socktype" ); 78 "\$socket->peername for $socktype" ); [all …]
|
H A D | 02local-server-v4.t | 26 foreach my $socktype (qw( SOCK_STREAM SOCK_DGRAM )) { 28 ( $socktype eq "SOCK_STREAM" ? ( Listen => 1 ) : () ), 31 Type => Socket->$socktype, 38 is( $testserver->socktype, Socket->$socktype, "\$testserver->socktype for $socktype" ); 53 Type => Socket->$socktype, 57 my $testclient = ( $socktype eq "SOCK_STREAM" ) ? 61 ok( defined $testclient, "accepted test $socktype client" ); 62 isa_ok( $testclient, "IO::Socket::IP", "\$testclient for $socktype" ); 65 is( $testclient->socktype, Socket->$socktype, "\$testclient->socktype for $socktype" ); 69 "\$socket->sockname for $socktype" ); [all …]
|
H A D | 01local-client-v4.t | 26 foreach my $socktype (qw( SOCK_STREAM SOCK_DGRAM )) { 28 ( $socktype eq "SOCK_STREAM" ? ( Listen => 1 ) : () ), 30 Type => Socket->$socktype, 37 Type => Socket->$socktype, 40 ok( defined $socket, "IO::Socket::IP->new constructs a $socktype socket" ) or 44 is( $socket->socktype, Socket->$socktype, "\$socket->socktype for $socktype" ); 46 my $testclient = ( $socktype eq "SOCK_STREAM" ) ? 50 ok( defined $testclient, "accepted test $socktype client" ); 52 ok( $socket->connected, "\$socket is connected for $socktype" ); 57 "\$socket->sockname for $socktype" ); [all …]
|
H A D | 04local-client-v6.t | 32 foreach my $socktype (qw( SOCK_STREAM SOCK_DGRAM )) { 34 $testserver->socket( $AF_INET6, Socket->$socktype, 0 ) 37 …r, $ai ) = Socket::getaddrinfo( "::1", 0, { family => $AF_INET6, socktype => Socket->$socktype } ); 42 if( $socktype eq "SOCK_STREAM" ) { 51 Type => Socket->$socktype, 59 is( $socket->socktype, Socket->$socktype, "\$socket->socktype for $socktype" ); 61 my $testclient = ( $socktype eq "SOCK_STREAM" ) ? 65 ok( defined $testclient, "accepted test $socktype client" ); 71 "\$socket->sockname for $socktype" ); 75 "\$socket->peername for $socktype" ); [all …]
|
H A D | 06local-cross-v6.t | 13 foreach my $socktype (qw( SOCK_STREAM SOCK_DGRAM )) { 15 ( $socktype eq "SOCK_STREAM" ? ( Listen => 1 ) : () ), 18 Type => Socket->$socktype, 24 Type => Socket->$socktype, 27 my $testclient = ( $socktype eq "SOCK_STREAM" ) ? 31 is( $testclient->sockport, $socket->peerport, "\$testclient->sockport for $socktype" ); 32 is( $testclient->peerport, $socket->sockport, "\$testclient->peerport for $socktype" ); 34 is( $testclient->sockhost, $socket->peerhost, "\$testclient->sockhost for $socktype" ); 35 is( $testclient->peerhost, $socket->sockhost, "\$testclient->peerhost for $socktype" ); 38 is( $testclient->getline, "Request\n", "\$socket to \$testclient for $socktype" ); [all …]
|
/dports/lang/perl5.32/perl-5.32.1/cpan/IO-Socket-IP/t/ |
H A D | 05local-server-v6.t | 32 foreach my $socktype (qw( SOCK_STREAM SOCK_DGRAM )) { 34 ( $socktype eq "SOCK_STREAM" ? ( Listen => 1 ) : () ), 37 Type => Socket->$socktype, 45 is( $testserver->socktype, Socket->$socktype, "\$testserver->socktype for $socktype" ); 54 $socket->socket( $AF_INET6, Socket->$socktype, 0 ) 57 …etaddrinfo( "::1", $testserver->sockport, { family => $AF_INET6, socktype => Socket->$socktype } ); 62 my $testclient = ( $socktype eq "SOCK_STREAM" ) ? 70 is( $testclient->socktype, Socket->$socktype, "\$testclient->socktype for $socktype" ); 74 "\$socket->sockname for $socktype" ); 78 "\$socket->peername for $socktype" ); [all …]
|
H A D | 02local-server-v4.t | 26 foreach my $socktype (qw( SOCK_STREAM SOCK_DGRAM )) { 28 ( $socktype eq "SOCK_STREAM" ? ( Listen => 1 ) : () ), 31 Type => Socket->$socktype, 38 is( $testserver->socktype, Socket->$socktype, "\$testserver->socktype for $socktype" ); 53 Type => Socket->$socktype, 57 my $testclient = ( $socktype eq "SOCK_STREAM" ) ? 61 ok( defined $testclient, "accepted test $socktype client" ); 62 isa_ok( $testclient, "IO::Socket::IP", "\$testclient for $socktype" ); 65 is( $testclient->socktype, Socket->$socktype, "\$testclient->socktype for $socktype" ); 69 "\$socket->sockname for $socktype" ); [all …]
|
H A D | 01local-client-v4.t | 26 foreach my $socktype (qw( SOCK_STREAM SOCK_DGRAM )) { 28 ( $socktype eq "SOCK_STREAM" ? ( Listen => 1 ) : () ), 30 Type => Socket->$socktype, 37 Type => Socket->$socktype, 40 ok( defined $socket, "IO::Socket::IP->new constructs a $socktype socket" ) or 44 is( $socket->socktype, Socket->$socktype, "\$socket->socktype for $socktype" ); 46 my $testclient = ( $socktype eq "SOCK_STREAM" ) ? 50 ok( defined $testclient, "accepted test $socktype client" ); 52 ok( $socket->connected, "\$socket is connected for $socktype" ); 57 "\$socket->sockname for $socktype" ); [all …]
|
H A D | 04local-client-v6.t | 32 foreach my $socktype (qw( SOCK_STREAM SOCK_DGRAM )) { 34 $testserver->socket( $AF_INET6, Socket->$socktype, 0 ) 37 …r, $ai ) = Socket::getaddrinfo( "::1", 0, { family => $AF_INET6, socktype => Socket->$socktype } ); 42 if( $socktype eq "SOCK_STREAM" ) { 51 Type => Socket->$socktype, 59 is( $socket->socktype, Socket->$socktype, "\$socket->socktype for $socktype" ); 61 my $testclient = ( $socktype eq "SOCK_STREAM" ) ? 65 ok( defined $testclient, "accepted test $socktype client" ); 71 "\$socket->sockname for $socktype" ); 75 "\$socket->peername for $socktype" ); [all …]
|
H A D | 06local-cross-v6.t | 13 foreach my $socktype (qw( SOCK_STREAM SOCK_DGRAM )) { 15 ( $socktype eq "SOCK_STREAM" ? ( Listen => 1 ) : () ), 18 Type => Socket->$socktype, 24 Type => Socket->$socktype, 27 my $testclient = ( $socktype eq "SOCK_STREAM" ) ? 31 is( $testclient->sockport, $socket->peerport, "\$testclient->sockport for $socktype" ); 32 is( $testclient->peerport, $socket->sockport, "\$testclient->peerport for $socktype" ); 34 is( $testclient->sockhost, $socket->peerhost, "\$testclient->sockhost for $socktype" ); 35 is( $testclient->peerhost, $socket->sockhost, "\$testclient->peerhost for $socktype" ); 38 is( $testclient->getline, "Request\n", "\$socket to \$testclient for $socktype" ); [all …]
|
/dports/lang/perl5.34/perl-5.34.0/cpan/IO-Socket-IP/t/ |
H A D | 05local-server-v6.t | 33 foreach my $socktype (qw( SOCK_STREAM SOCK_DGRAM )) { 35 ( $socktype eq "SOCK_STREAM" ? ( Listen => 1 ) : () ), 38 Type => Socket->$socktype, 46 is( $testserver->socktype, Socket->$socktype, "\$testserver->socktype for $socktype" ); 55 $socket->socket( $AF_INET6, Socket->$socktype, 0 ) 58 …etaddrinfo( "::1", $testserver->sockport, { family => $AF_INET6, socktype => Socket->$socktype } ); 63 my $testclient = ( $socktype eq "SOCK_STREAM" ) ? 71 is( $testclient->socktype, Socket->$socktype, "\$testclient->socktype for $socktype" ); 75 "\$socket->sockname for $socktype" ); 79 "\$socket->peername for $socktype" ); [all …]
|
H A D | 02local-server-v4.t | 27 foreach my $socktype (qw( SOCK_STREAM SOCK_DGRAM )) { 29 ( $socktype eq "SOCK_STREAM" ? ( Listen => 1 ) : () ), 32 Type => Socket->$socktype, 39 is( $testserver->socktype, Socket->$socktype, "\$testserver->socktype for $socktype" ); 54 Type => Socket->$socktype, 58 my $testclient = ( $socktype eq "SOCK_STREAM" ) ? 62 ok( defined $testclient, "accepted test $socktype client" ); 63 isa_ok( $testclient, "IO::Socket::IP", "\$testclient for $socktype" ); 66 is( $testclient->socktype, Socket->$socktype, "\$testclient->socktype for $socktype" ); 70 "\$socket->sockname for $socktype" ); [all …]
|
H A D | 04local-client-v6.t | 33 foreach my $socktype (qw( SOCK_STREAM SOCK_DGRAM )) { 35 $testserver->socket( $AF_INET6, Socket->$socktype, 0 ) 38 …r, $ai ) = Socket::getaddrinfo( "::1", 0, { family => $AF_INET6, socktype => Socket->$socktype } ); 43 if( $socktype eq "SOCK_STREAM" ) { 52 Type => Socket->$socktype, 60 is( $socket->socktype, Socket->$socktype, "\$socket->socktype for $socktype" ); 62 my $testclient = ( $socktype eq "SOCK_STREAM" ) ? 66 ok( defined $testclient, "accepted test $socktype client" ); 72 "\$socket->sockname for $socktype" ); 76 "\$socket->peername for $socktype" ); [all …]
|
H A D | 01local-client-v4.t | 27 foreach my $socktype (qw( SOCK_STREAM SOCK_DGRAM )) { 29 ( $socktype eq "SOCK_STREAM" ? ( Listen => 1 ) : () ), 31 Type => Socket->$socktype, 38 Type => Socket->$socktype, 41 ok( defined $socket, "IO::Socket::IP->new constructs a $socktype socket" ) or 45 is( $socket->socktype, Socket->$socktype, "\$socket->socktype for $socktype" ); 47 my $testclient = ( $socktype eq "SOCK_STREAM" ) ? 51 ok( defined $testclient, "accepted test $socktype client" ); 53 ok( $socket->connected, "\$socket is connected for $socktype" ); 58 "\$socket->sockname for $socktype" ); [all …]
|
H A D | 06local-cross-v6.t | 14 foreach my $socktype (qw( SOCK_STREAM SOCK_DGRAM )) { 16 ( $socktype eq "SOCK_STREAM" ? ( Listen => 1 ) : () ), 19 Type => Socket->$socktype, 25 Type => Socket->$socktype, 28 my $testclient = ( $socktype eq "SOCK_STREAM" ) ? 32 is( $testclient->sockport, $socket->peerport, "\$testclient->sockport for $socktype" ); 33 is( $testclient->peerport, $socket->sockport, "\$testclient->peerport for $socktype" ); 35 is( $testclient->sockhost, $socket->peerhost, "\$testclient->sockhost for $socktype" ); 36 is( $testclient->peerhost, $socket->sockhost, "\$testclient->peerhost for $socktype" ); 39 is( $testclient->getline, "Request\n", "\$socket to \$testclient for $socktype" ); [all …]
|
/dports/net/p5-IO-Socket-IP/IO-Socket-IP-0.41/t/ |
H A D | 05local-server-v6.t | 33 foreach my $socktype (qw( SOCK_STREAM SOCK_DGRAM )) { 35 ( $socktype eq "SOCK_STREAM" ? ( Listen => 1 ) : () ), 38 Type => Socket->$socktype, 46 is( $testserver->socktype, Socket->$socktype, "\$testserver->socktype for $socktype" ); 55 $socket->socket( $AF_INET6, Socket->$socktype, 0 ) 58 …etaddrinfo( "::1", $testserver->sockport, { family => $AF_INET6, socktype => Socket->$socktype } ); 63 my $testclient = ( $socktype eq "SOCK_STREAM" ) ? 71 is( $testclient->socktype, Socket->$socktype, "\$testclient->socktype for $socktype" ); 75 "\$socket->sockname for $socktype" ); 79 "\$socket->peername for $socktype" ); [all …]
|
H A D | 02local-server-v4.t | 27 foreach my $socktype (qw( SOCK_STREAM SOCK_DGRAM )) { 29 ( $socktype eq "SOCK_STREAM" ? ( Listen => 1 ) : () ), 32 Type => Socket->$socktype, 39 is( $testserver->socktype, Socket->$socktype, "\$testserver->socktype for $socktype" ); 54 Type => Socket->$socktype, 58 my $testclient = ( $socktype eq "SOCK_STREAM" ) ? 62 ok( defined $testclient, "accepted test $socktype client" ); 63 isa_ok( $testclient, "IO::Socket::IP", "\$testclient for $socktype" ); 66 is( $testclient->socktype, Socket->$socktype, "\$testclient->socktype for $socktype" ); 70 "\$socket->sockname for $socktype" ); [all …]
|
H A D | 04local-client-v6.t | 33 foreach my $socktype (qw( SOCK_STREAM SOCK_DGRAM )) { 35 $testserver->socket( $AF_INET6, Socket->$socktype, 0 ) 38 …r, $ai ) = Socket::getaddrinfo( "::1", 0, { family => $AF_INET6, socktype => Socket->$socktype } ); 43 if( $socktype eq "SOCK_STREAM" ) { 52 Type => Socket->$socktype, 60 is( $socket->socktype, Socket->$socktype, "\$socket->socktype for $socktype" ); 62 my $testclient = ( $socktype eq "SOCK_STREAM" ) ? 66 ok( defined $testclient, "accepted test $socktype client" ); 72 "\$socket->sockname for $socktype" ); 76 "\$socket->peername for $socktype" ); [all …]
|
H A D | 01local-client-v4.t | 27 foreach my $socktype (qw( SOCK_STREAM SOCK_DGRAM )) { 29 ( $socktype eq "SOCK_STREAM" ? ( Listen => 1 ) : () ), 31 Type => Socket->$socktype, 38 Type => Socket->$socktype, 41 ok( defined $socket, "IO::Socket::IP->new constructs a $socktype socket" ) or 45 is( $socket->socktype, Socket->$socktype, "\$socket->socktype for $socktype" ); 47 my $testclient = ( $socktype eq "SOCK_STREAM" ) ? 51 ok( defined $testclient, "accepted test $socktype client" ); 53 ok( $socket->connected, "\$socket is connected for $socktype" ); 58 "\$socket->sockname for $socktype" ); [all …]
|
H A D | 06local-cross-v6.t | 14 foreach my $socktype (qw( SOCK_STREAM SOCK_DGRAM )) { 16 ( $socktype eq "SOCK_STREAM" ? ( Listen => 1 ) : () ), 19 Type => Socket->$socktype, 25 Type => Socket->$socktype, 28 my $testclient = ( $socktype eq "SOCK_STREAM" ) ? 32 is( $testclient->sockport, $socket->peerport, "\$testclient->sockport for $socktype" ); 33 is( $testclient->peerport, $socket->sockport, "\$testclient->peerport for $socktype" ); 35 is( $testclient->sockhost, $socket->peerhost, "\$testclient->sockhost for $socktype" ); 36 is( $testclient->peerhost, $socket->sockhost, "\$testclient->peerhost for $socktype" ); 39 is( $testclient->getline, "Request\n", "\$socket to \$testclient for $socktype" ); [all …]
|
/dports/lang/perl5-devel/perl5-5.35.4-102-ge43d289c7c/cpan/IO-Socket-IP/t/ |
H A D | 05local-server-v6.t | 33 foreach my $socktype (qw( SOCK_STREAM SOCK_DGRAM )) { 35 ( $socktype eq "SOCK_STREAM" ? ( Listen => 1 ) : () ), 38 Type => Socket->$socktype, 46 is( $testserver->socktype, Socket->$socktype, "\$testserver->socktype for $socktype" ); 55 $socket->socket( $AF_INET6, Socket->$socktype, 0 ) 58 …etaddrinfo( "::1", $testserver->sockport, { family => $AF_INET6, socktype => Socket->$socktype } ); 63 my $testclient = ( $socktype eq "SOCK_STREAM" ) ? 71 is( $testclient->socktype, Socket->$socktype, "\$testclient->socktype for $socktype" ); 75 "\$socket->sockname for $socktype" ); 79 "\$socket->peername for $socktype" ); [all …]
|
H A D | 02local-server-v4.t | 27 foreach my $socktype (qw( SOCK_STREAM SOCK_DGRAM )) { 29 ( $socktype eq "SOCK_STREAM" ? ( Listen => 1 ) : () ), 32 Type => Socket->$socktype, 39 is( $testserver->socktype, Socket->$socktype, "\$testserver->socktype for $socktype" ); 54 Type => Socket->$socktype, 58 my $testclient = ( $socktype eq "SOCK_STREAM" ) ? 62 ok( defined $testclient, "accepted test $socktype client" ); 63 isa_ok( $testclient, "IO::Socket::IP", "\$testclient for $socktype" ); 66 is( $testclient->socktype, Socket->$socktype, "\$testclient->socktype for $socktype" ); 70 "\$socket->sockname for $socktype" ); [all …]
|
H A D | 04local-client-v6.t | 33 foreach my $socktype (qw( SOCK_STREAM SOCK_DGRAM )) { 35 $testserver->socket( $AF_INET6, Socket->$socktype, 0 ) 38 …r, $ai ) = Socket::getaddrinfo( "::1", 0, { family => $AF_INET6, socktype => Socket->$socktype } ); 43 if( $socktype eq "SOCK_STREAM" ) { 52 Type => Socket->$socktype, 60 is( $socket->socktype, Socket->$socktype, "\$socket->socktype for $socktype" ); 62 my $testclient = ( $socktype eq "SOCK_STREAM" ) ? 66 ok( defined $testclient, "accepted test $socktype client" ); 72 "\$socket->sockname for $socktype" ); 76 "\$socket->peername for $socktype" ); [all …]
|
H A D | 01local-client-v4.t | 27 foreach my $socktype (qw( SOCK_STREAM SOCK_DGRAM )) { 29 ( $socktype eq "SOCK_STREAM" ? ( Listen => 1 ) : () ), 31 Type => Socket->$socktype, 38 Type => Socket->$socktype, 41 ok( defined $socket, "IO::Socket::IP->new constructs a $socktype socket" ) or 45 is( $socket->socktype, Socket->$socktype, "\$socket->socktype for $socktype" ); 47 my $testclient = ( $socktype eq "SOCK_STREAM" ) ? 51 ok( defined $testclient, "accepted test $socktype client" ); 53 ok( $socket->connected, "\$socket is connected for $socktype" ); 58 "\$socket->sockname for $socktype" ); [all …]
|
/dports/net/libunp/unpv12e/libgai/ |
H A D | ga_echeck.c | 25 if (socktype != 0 && in ga_echeck() 26 (socktype != SOCK_STREAM && in ga_echeck() 27 socktype != SOCK_DGRAM && in ga_echeck() 28 socktype != SOCK_RAW)) in ga_echeck() 34 if (socktype != 0 && in ga_echeck() 35 (socktype != SOCK_STREAM && in ga_echeck() 36 socktype != SOCK_DGRAM && in ga_echeck() 37 socktype != SOCK_RAW)) in ga_echeck() 43 if (socktype != 0 && in ga_echeck() 44 (socktype != SOCK_STREAM && in ga_echeck() [all …]
|