#Portions (c) 1995 Microsoft Corporation. All rights reserved. 
#        Developed by hip communications inc., http://info.hip.com/info/

# test script to verify that unsupported functions are really unsupported
# functions commented out require changes to core code.


if( Win32::IsWin95() ){
        print"1..1\nok 1\n";
        die "This test does not work on windows 95\n";
}




@functions = (
'alarm( $x )',
#'chmod( $x,$x )',
'chroot( $x )',
#'crypt( $x,$x )',
#'dbmclose( %x )',
#'dbmopen( %x,$x,$x )',
#'dump ()',
#'fcntl( S,$x,$x )',
#'flock( $x,$x )',
'fork ()',
'getpgrp( $x )',
'getppid ()',
'getpriority( $x,$x )',
'getpwnam( $x )',
'getgrnam( $x )',
'getpwuid( $x )',
'getgrgid( $x )',
'getpwent ()',
'getgrent ()',
'setpwent ()',
'setgrent ()',
'endpwent ()',
'endgrent ()',
#'ioctl( S,$x,$x )',
'kill( $x,$x )',
'link( $x,$x )',
#'lstat( $x )',
'msgctl( $x,$x,$x )',
'msgget( $x,$x )',
'msgrcv( $x,$x,$x,$x,$x )',
'msgsnd( $x,$x,$x )',
#'pipe( $x,$x )',
#'readlink( $x )',
#'select( $x,$x,$x,$x )',
'semctl( $x,$x,$x,$x )',
'semget( $x,$x,$x )',
'semop( $x,$x )',
'setpgrp( $x,$x )',
'setpriority( $x,$x,$x )',
'shmctl( $x,$x,$x )',
'shmget( $x,$x,$x )',
'shmread( $x,$x,$x,$x )',
'shmwrite( $x,$x,$x,$x )',
'symlink( $x,$x )',
'syscall( $x,$x,$x )',
#'sysread( $x,$x,$x,$x )',
#'sysread( $x,$x,$x )',
#'syswrite( $x,$x,$x,$x )',
#'syswrite( $x,$x,$x )',
'times ()',
#'umask ()',
#'utime( $x,$x )',
'wait ()',
'waitpid( $x,$x )',

# socketroutines, commented out are supported.

#'accept( $x,$x )',
#'bind( S,$x )',
#'getpeername( S )',
#'gethostbyname( $x )',
#'getprotobyname( $x )',
#'getservbyname( $x,$x )',
#'gethostbyaddr( $x,$x )',
#'getprotobynumber( $x )',
#'getservbyport( $x,$x )',
#'gethostent ()',
#'getsockname( S )',
#'getsockopt( S,$x,$x )',
#'listen( S,$x )',
#'recv( $x,$x,$x,$x )',
#'send( $x,$x,$x )',
#'send( $x,$x,$x,$x )',
#'shutdown( S,$x )',
#'socket( S,$x,$x,$x )',

'getnetbyname( $x )',
'getnetbyaddr( $x,$x )',
'getnetent ()',
'getprotoent ()',
'getservent ()',
'sethostent( $x )',
'setnetent( $x )',
'setprotoent( $x )',
'setservent( $x )',
'endhostent ()',
'endnetent ()',
'endprotoent ()',
'endservent ()',
'socketpair( S,S,$x,$x,$x )',

);

print "1.." , $#functions + 1 , "\n";
$i = 1;
foreach $function ( @functions ) {
    local( $f ) = $function if @ARGV;
    $output = `perl -e "$function" 2>&1`;
    if ( $? != 0 && $output =~
        /(not implemented|not supported|unimplemented|unsupported)/i ) {
        print "ok " , $i++, " $f", "\n";
    } else {
        print "not ok ", $i++, " $f", "\n";
        print $output if @ARGV;
    }
}
