#!/usr/bin/env perl
use strict; use warnings;
use English qw( -no_match_vars );
use rlib '../lib';
use Config;
use Test::More;
if ($OSNAME eq 'MSWin32' or $OSNAME eq 'msys') {
plan skip_all => 'FIXME make work on MinGW and Strawberry Perl?'
} else {
plan;
}
note( "Testing Devel::IO::TCPServer" );
require_ok( 'Devel::Trepan::IO::TCPServer' );
note "Testing failure to open server port";
my $pid = fork();
if ($pid == 0) {
my $connection_opts = {
io => 'TCP',
port => 80, # It's
logger => undef # An Interface. Complaints go here.
};
my $inout = Devel::Trepan::IO::TCPServer->new($connection_opts);
my $rc = $? >> 8;
unless ($rc) {
# Can't use the same port twice.
my $inout2 = Devel::Trepan::IO::TCPServer->new($connection_opts);
$rc = $? >> 8;
}
exit $rc;
} else {
waitpid($pid, 0);
isnt($?>>8, 0);
}
done_testing();