io_sock.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./perl
BEGIN {
chdir 't' if -d 't';
}
}
use Config;
BEGIN {
if (-d "lib" && -f "TEST") {
my $reason;
}
}
}
exit 0;
}
}
}
$| = 1;
print "1..14\n";
# some systems seem to need as much as 10,
# so be generous with the timeout
Timeout => 15,
print "ok 1\n";
# Check if can fork with dynamic extensions (bug in CRT):
print "ok $_ # skipped: broken fork\n" for 2..5;
exit 0;
}
print "ok 2\n";
print "ok 5\n";
PeerAddr => 'localhost'
)
PeerAddr => '127.0.0.1'
)
exit;
} else {
die;
}
# Test various other ways to create INET sockets that should
# also work.
while (1) {
last SERVER_LOOP if /^quit/;
last if /^done/;
print;
}
}
# child, try various ways to connect
print "ok 6\n";
print "ok 8\n";
}
else {
print "# $@\n";
print "not ok 6\n";
print "not ok 7\n";
print "not ok 8\n";
print "not ok 9\n";
}
# some machines seem to suffer from a race condition here
}
else {
print "# $@\n";
print "not ok 10\n";
}
# some machines seem to suffer from a race condition here
}
exit;
} else {
die;
}
# Then test UDP sockets
print("ok 12 # skipped\n")
} else {
my $buf;
print $buf;
#child
exit;
} else {
die;
}
}
print "ok 13\n";
print "ok 14\n";