perl-5.16.2/ext/POSIX/t/unimplemented.t

#!./perl -w

use strict;
use Test::More;
use Config;

plan(skip_all => "POSIX is unavailable")
    unless $Config{extensions} =~ /\bPOSIX\b/;

require POSIX;

foreach ([atexit => 'C-specific: use END {} instead'],
	 [atof => 'C-specific, stopped'],
	 [atoi => 'C-specific, stopped'],
	 [atol => 'C-specific, stopped'],
	 [bsearch => 'not supplied'],
	 [calloc => 'C-specific, stopped'],
	 [clearerr => \'IO::Handle::clearerr'],
	 [div => 'C-specific: use /, % and int instead'],
	 [execl => 'C-specific, stopped'],
	 [execle => 'C-specific, stopped'],
	 [execlp => 'C-specific, stopped'],
	 [execv => 'C-specific, stopped'],
	 [execve => 'C-specific, stopped'],
	 [execvp => 'C-specific, stopped'],
	 [fclose => \'IO::Handle::close'],
	 [fdopen => \'IO::Handle::new_from_fd'],
	 [feof => \'IO::Handle::eof'],
	 [ferror => \'IO::Handle::error'],
	 [fflush => \'IO::Handle::flush'],
	 [fgetc => \'IO::Handle::getc'],
	 [fgetpos => \'IO::Seekable::getpos'],
	 [fgets => \'IO::Handle::gets'],
	 [fileno => \'IO::Handle::fileno'],
	 [fopen => \'IO::File::open'],
	 [fprintf => 'C-specific: use printf instead'],
	 [fputc => 'C-specific: use print instead'],
	 [fputs => 'C-specific: use print instead'],
	 [fread => 'C-specific: use read instead'],
	 [free => 'C-specific, stopped'],
	 [freopen => 'C-specific: use open instead'],
	 [fscanf => 'C-specific: use <> and regular expressions instead'],
	 [fseek => \'IO::Seekable::seek'],
	 [fsetpos => \'IO::Seekable::setpos'],
	 [fsync => \'IO::Handle::sync'],
	 [ftell => \'IO::Seekable::tell'],
	 [fwrite => 'C-specific: use print instead'],
	 [labs => 'C-specific: use abs instead'],
	 [ldiv => 'C-specific: use /, % and int instead'],
	 [longjmp => 'C-specific: use die instead'],
	 [malloc => 'C-specific, stopped'],
	 [memchr => 'C-specific: use index() instead'],
	 [memcmp => 'C-specific: use eq instead'],
	 [memcpy => 'C-specific: use = instead'],
	 [memmove => 'C-specific: use = instead'],
	 [memset => 'C-specific: use x instead'],
	 [offsetof => 'C-specific, stopped'],
	 [putc => 'C-specific: use print instead'],
	 [putchar => 'C-specific: use print instead'],
	 [puts => 'C-specific: use print instead'],
	 [qsort => 'C-specific: use sort instead'],
	 [rand => 'non-portable, use Perl\'s rand instead'],
	 [realloc => 'C-specific, stopped'],
	 [scanf => 'C-specific: use <> and regular expressions instead'],
	 [setbuf => \'IO::Handle::setbuf'],
	 [setjmp => 'C-specific: use eval {} instead'],
	 [setvbuf => \'IO::Handle::setvbuf'],
	 [siglongjmp => 'C-specific: use die instead'],
	 [sigsetjmp => 'C-specific: use eval {} instead'],
	 [srand => 'not supplied; refer to Perl\'s srand documentation'],
	 [sscanf => 'C-specific: use regular expressions instead'],
	 [strcat => 'C-specific: use .= instead'],
	 [strchr => 'C-specific: use index() instead'],
	 [strcmp => 'C-specific: use eq instead'],
	 [strcpy => 'C-specific: use = instead'],
	 [strcspn => 'C-specific: use regular expressions instead'],
	 [strlen => 'C-specific: use length instead'],
	 [strncat => 'C-specific: use .= instead'],
	 [strncmp => 'C-specific: use eq instead'],
	 [strncpy => 'C-specific: use = instead'],
	 [strpbrk => 'C-specific, stopped'],
	 [strrchr => 'C-specific: use rindex() instead'],
	 [strspn => 'C-specific, stopped'],
	 [strtok => 'C-specific, stopped'],
	 [tmpfile => \'IO::File::new_tmpfile'],
	 [ungetc => \'IO::Handle::ungetc'],
	 [vfprintf => 'C-specific, stopped'],
	 [vprintf => 'C-specific, stopped'],
	 [vsprintf => 'C-specific, stopped'],
	) {
    my ($func, $action) = @$_;
    my $expect = ref $action
	? qr/Use method $$action\(\) instead of POSIX::$func\(\) at \(eval/
	: qr/Unimplemented: POSIX::$func\(\) is \Q$action\E at \(eval/;
    is(eval "POSIX::$func(); 1", undef, "POSIX::$func fails as expected");
    like($@, $expect, "POSIX::$func gives expected error message");
}

done_testing();