t/select.t

   1 #!./perl
   2
   3 use strict;
   4 require 5.002;
   5
   6 ## Main program.
   7 {
   8     my (
   9         $bitmask,
  10         $nfound,
  11         );
  12
  13     print "1..3\n";
  14
  15     ## Does this OS support sockets?
  16     use Socket qw(AF_INET SOCK_STREAM);
  17     test (socket SOCK, AF_INET, SOCK_STREAM, 0);
  18
  19     ## Does this OS support select()?
  20     vec($bitmask='', fileno(SOCK), 1) = 1;
  21     eval { $nfound = select($bitmask, '', '', 0) };
  22     test ($@ eq "");
  23
  24     ## Did select() return a correct value?
  25     test (defined($nfound) and ($nfound == 0 or $nfound == 1));
  26
  27     exit;
  28 } # end main program
  29
  30
  31 ############################ Subroutines #############################
  32
  33
  34 BEGIN {
  35     my $testnum = 0;
  36
  37     sub test {
  38         if (defined($_[0]) and $_[0]) {
  39             print "ok ", ++$testnum, "\n";
  40         }
  41         else {
  42             print "not ok ", ++$testnum, "\n";
  43         }
  44     } # end sub test
  45 }