Gecko [ www.blackthorn-inc.com ]

Linux cpanel2.daytoncreative.net 2.6.32-754.29.2.el6.x86_64 #1 SMP Tue May 12 17:39:04 UTC 2020 x86_64
Apache/2.4.43 (cPanel) OpenSSL/1.1.1g mod_bwlimited/1.4
Server IP : 70.62.220.67 & Your IP : 216.73.216.193
Domains : Cant Read [ /etc/named.conf ]
User : michaelgreg

Name	Size	Permission	Date
export.t	6.17 KB	-r--r--r--	2014-12-27 11:49
is.t	3.79 KB	-r--r--r--	2014-12-27 11:49
math.t	1.96 KB	-r--r--r--	2014-12-27 11:49
posix.t	13.02 KB	-r--r--r--	2014-12-27 11:49
sigaction.t	5.3 KB	-r--r--r--	2014-12-27 11:48
sigset.t	3.08 KB	-r--r--r--	2014-12-27 11:48
sysconf.t	4.56 KB	-r--r--r--	2014-12-27 11:48
taint.t	1.32 KB	-r--r--r--	2014-12-27 11:48
termios.t	4.81 KB	-r--r--r--	2014-12-27 11:48
time.t	3.65 KB	-r--r--r--	2014-12-27 11:48
unimplemented.t	3.77 KB	-r--r--r--	2014-12-27 11:48
usage.t	1.44 KB	-r--r--r--	2014-12-27 11:48
waitpid.t	1.82 KB	-r--r--r--	2014-12-27 11:48
wrappers.t	6.24 KB	-r--r--r--	2014-12-27 11:48

Rename

#!./perl -w

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

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

require POSIX;

my %valid;
my @all;

my $argc = 0;
for my $list ([qw(errno fork getchar getegid geteuid getgid getgroups getlogin
		  getpgrp getpid getppid gets getuid time wait)],
	      [qw(abs alarm assert chdir closedir cos exit exp fabs fstat getc
		  getenv getgrgid getgrnam getpwnam getpwuid gmtime isatty
		  localtime log opendir raise readdir remove rewind rewinddir
		  rmdir sin sleep sqrt stat strerror system tolower toupper
		  umask unlink)],
	      [qw(atan2 chmod creat kill link mkdir pow rename strstr waitpid)],
	      [qw(chown fcntl utime)]) {
    $valid{$_} = $argc foreach @$list;
    push @all, @$list;
    ++$argc;
}

my @try = 0 .. $argc - 1;
foreach my $func (sort @all) {
    my $arg_pat = join ', ', ('[a-z]+') x $valid{$func};
    my $expect = qr/\AUsage: POSIX::$func$$arg_pat$ at \(eval/;
    foreach my $try (@try) {
	next if $valid{$func} == $try;
	my $call = "POSIX::$func(" . join(', ', 1 .. $try) . ')';
	is(eval "$call; 1", undef, "$call fails");
	like($@, $expect, "POSIX::$func for $try arguments gives expected error")
    }
}

foreach my $func (qw(printf sprintf)) {
    is(eval "POSIX::$func(); 1", undef, "POSIX::$func() fails");
    like($@, qr/\AUsage: POSIX::$func$pattern, args\.\.\.$ at \(eval/,
	 "POSIX::$func for 0 arguments gives expected error");
}

done_testing();