io_sel.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./perl
BEGIN {
chdir 't' if -d 't';
}
}
select(STDERR); $| = 1;
select(STDOUT); $| = 1;
print "1..23\n";
print "ok 1\n";
print "ok 2\n";
print "ok 3\n";
#print $sel->as_string, "\n";
print "ok 4\n",
;
or print "not ";
print "ok 5\n";
print "ok 6\n";
#print $sel->as_string, "\n";
print "ok 7\n";
print "ok 8\n";
print "ok 9\n";
for (10 .. 15) {
print "ok $_ # skip: 4-arg select is only valid on sockets\n"
}
goto POST_SOCKET;
}
print "ok 10\n";
# we assume that we can write to STDOUT :-)
print "ok 11\n";
print "ok 13\n";
($r, $w, $e) = @a;
print "ok 14\n";
$fd = $w->[0];
print $fd "ok 15\n";
# Test new exists() method
print "ok 16\n";
print "ok 17\n";
if ($fd) {
} else {
print "not ok 18\n";
}
if ($fd) {
} else {
print "not ok 19\n";
}
# Try self clearing
print "ok 20\n";
print "ok 21\n";
# check warnings
++ $w
} ;
$w = 0 ;
$w = 0 ;
print "ok 22\n" ;
use warnings 'IO::Select' ;
$w = 0 ;
print "ok 23\n" ;