1N/A chdir 't' if -d 't'; 1N/A#print $sel->as_string, "\n"; 1N/A#print $sel->as_string, "\n"; 1N/A print "ok $_ # skip: 4-arg select is only valid on sockets\n" 1N/A# we assume that we can write to STDOUT :-) 1N/Aprint "not " unless @$r ==
0 && @$w ==
1 && @$e ==
0;
1N/A# Test new exists() method 1N/A print "not ok 18\n"; 1N/A print "not ok 19\n";