#!./perl

use strict;
require 5.002;

## Main program.
{
    my (
	$bitmask,
	$nfound,
	);

    print "1..3\n";

    ## Does this OS support sockets?
    use Socket qw(AF_INET SOCK_STREAM);
    test (socket SOCK, AF_INET, SOCK_STREAM, 0);

    ## Does this OS support select()?
    vec($bitmask='', fileno(SOCK), 1) = 1;
    eval { $nfound = select($bitmask, '', '', 0) };
    test ($@ eq "");

    ## Did select() return a correct value?
    test (defined($nfound) and ($nfound == 0 or $nfound == 1));

    exit;
} # end main program


############################ Subroutines #############################


BEGIN {
    my $testnum = 0;

    sub test {
	if (defined($_[0]) and $_[0]) {
	    print "ok ", ++$testnum, "\n";
	}
	else {
	    print "not ok ", ++$testnum, "\n";
	}
    } # end sub test
}