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
FindExt.t	2.62 KB	-r--r--r--	2014-12-27 11:49
args_assert.t	1.39 KB	-r--r--r--	2014-12-27 11:49
authors.t	462 B	-r--r--r--	2014-12-27 11:49
bincompat.t	446 B	-r--r--r--	2014-12-27 11:49
checkcase.t	1.17 KB	-r--r--r--	2014-12-27 11:49
checkcfgvar.t	1.36 KB	-r--r--r--	2014-12-27 11:49
cmp_version.t	486 B	-r--r--r--	2014-12-27 11:49
copyright.t	1.88 KB	-r--r--r--	2014-12-27 11:49
corelist.t	532 B	-r--r--r--	2015-01-28 21:08
customized.dat	3.13 KB	-r--r--r--	2015-01-31 22:00
customized.t	3.02 KB	-r--r--r--	2014-12-27 11:49
diag.t	23.62 KB	-r--r--r--	2015-01-15 22:12
dual-life.t	1.63 KB	-r--r--r--	2014-12-27 11:49
exec-bit.t	1.81 KB	-r--r--r--	2014-12-27 11:49
extrefs.t	3.32 KB	-r--r--r--	2014-12-27 11:49
filenames.t	1.9 KB	-r--r--r--	2014-12-27 11:49
globvar.t	1.82 KB	-r--r--r--	2014-12-27 11:49
known_pod_issues.dat	9.81 KB	-r--r--r--	2015-01-17 16:54
maintainers.t	884 B	-r--r--r--	2014-12-27 11:49
manifest.t	3.05 KB	-r--r--r--	2014-12-27 11:49
pending-author.t	1.75 KB	-r--r--r--	2014-12-27 11:49
perlfunc.t	1.39 KB	-r--r--r--	2014-12-27 11:49
pod_rules.t	1.04 KB	-r--r--r--	2014-12-27 11:49
podcheck.t	75.45 KB	-r--r--r--	2014-12-27 12:37
readme.t	2.22 KB	-r--r--r--	2014-12-27 11:49
regen.t	2.04 KB	-r--r--r--	2014-12-27 12:37
ss_dup.t	863 B	-r--r--r--	2014-12-27 11:49
test_bootstrap.t	2.42 KB	-r--r--r--	2014-12-27 11:49
utils.t	3.3 KB	-r--r--r--	2014-12-27 11:49

Rename

#!perl

use strict;
use warnings;
use Config;

require './test.pl';

if ( $Config{usecrosscompile} ) {
  skip_all( "Not all files are available during cross-compilation" );
}

plan('no_plan');

# Fail for every PERL_ARGS_ASSERT* macro that was declared but not used.

my %declared;
my %used;

my $prefix = '';

unless (-d 't' && -f 'MANIFEST') {
    # we'll assume that we are in t then.
    # All files are internal to perl, so Unix-style is sufficiently portable.
    $prefix = '../';
}

{
    my $proto = $prefix . 'proto.h';

open my $fh, '<', $proto or die "Can't open $proto: $!";

while (<$fh>) {
	$declared{$1}++ if /^#define\s+(PERL_ARGS_ASSERT[A-Za-z0-9_]+)\s+/;
    }
}

cmp_ok(scalar keys %declared, '>', 0, 'Some macros were declared');

if (!@ARGV) {
    my $manifest = $prefix . 'MANIFEST';
    open my $fh, '<', $manifest or die "Can't open $manifest: $!";
    while (<$fh>) {
	# *.c or */*.c
	push @ARGV, $prefix . $1 if m!^((?:[^/]+/)?[^/]+\.c)\t!;
    }
    push @ARGV, $prefix . 'inline.h'; # Special case this '.h' which acts like
                                      # a '.c'
}

while (<>) {
    $used{$1}++ if /^\s+(PERL_ARGS_ASSERT_[A-Za-z0-9_]+);$/;
}

my %unused;

foreach (keys %declared) {
    $unused{$_}++ unless $used{$_};
}

if (keys %unused) {
    fail("$_ is declared but not used") foreach sort keys %unused;
} else {
    pass('Every PERL_ARGS_ASSERT* macro declared is used');
}