Gecko [ www.blackthorn-inc.com ]

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 -w
use strict;

# See "Writing a test" in perlhack.pod for the instructions about the order that
# testing directories run, and which constructions should be avoided in the
# early tests.

# This regression tests ensures that the rules aren't accidentally overlooked.

BEGIN {
    chdir 't';
    require './test.pl';
}

plan('no_plan');

open my $fh, '<', '../MANIFEST' or die "Can't open MANIFEST: $!";

# Three tests in t/comp need to use require or use to get their job done:
my %exceptions = (hints => "require './test.pl'",
		  parser => 'use DieDieDie',
		  proto => 'use strict',
		 );
		  
while (my $file = <$fh>) {
    next unless $file =~ s!^t/!!;
    chomp $file;
    $file =~ s/\s+.*//;
    next unless $file =~ m!\.t$!;

local $/;
    open my $t, '<', $file or die "Can't open $file: $!";
    # avoid PERL_UNICODE causing us to read non-UTF-8 files as UTF-8
    binmode $t;
    my $contents = <$t>;
    # Make sure that we don't match ourselves
    unlike($contents, qr/use\s+Test::More/, "$file doesn't use Test::\QMore");
    next unless $file =~ m!^base/! or $file =~ m!^comp!;

# Remove only the excepted constructions for the specific files.
    if ($file =~ m!comp/(.*)\.t! && $exceptions{$1}) {
	my $allowed = $exceptions{$1};
	$contents =~ s/\Q$allowed//gs;
    }

# All uses of use are allowed in t/comp/use.t
    unlike($contents, qr/^\s*use\s+/m, "$file doesn't use use")
	unless $file eq 'comp/use.t';
    # All uses of require are allowed in t/comp/require.t
    unlike($contents, qr/^\s*require\s+/m, "$file doesn't use require")
	unless $file eq 'comp/require.t'
}

# There are regression tests using test.pl that don't want PL_sawampersand
# set.  Or at least that was the case until PL_sawampersand was disabled
# and replaced with copy-on-write.

# We still allow PL_sawampersand to be enabled with
# -Accflags=-DPERL_SAWAMPERSAND, or with -DPERL_NO_COW, so its still worth
# checking.
# There's no portable, reliable way to check whether PL_sawampersand is
# set, so instead we just "grep $`|$&|$' test.pl"

{
    my $file = '';
    my $fh;
    if (ok(open(my $fh, '<', 'test.pl'), "opened test.pl")) {
	$file = do { local $/; <$fh> };
	$file //= '';
    }
    else {
	diag("error: $!");
    }
    ok(length($file) > 0, "read test.pl successfully");
    ok($file !~ /\$&/, 'Nothing in test.pl mentioned $&');
    ok($file !~ /\$`/, 'Nothing in test.pl mentioned $`');
    ok($file !~ /\$'/, 'Nothing in test.pl mentioned $\'');
}