1 BEGIN { delete $ENV{PERL_STRICTURES_EXTRA} }
4 use Test::More $] >= 5.008_004 ? qw(no_plan)
5 : (skip_all => 'Extra tests disabled on perls <= 5.008003');
12 %extras = map { $_ => 1 } qw(
15 bareword/filehandles.pm
24 sub indirect::unimport {
29 for my $version ( 1, 2 ) {
31 my $tempdir = File::Temp::tempdir('strictures-XXXXXX', CLEANUP => 1, TMPDIR => 1);
34 local $strictures::Smells_Like_VCS = undef;
37 use strictures $version;
40 ok defined $strictures::Smells_Like_VCS, "VCS dir has been checked (v$version)";
41 ok !$strictures::Smells_Like_VCS, "VCS dir not detected with no .git (v$version)";
46 local $strictures::Smells_Like_VCS = undef;
49 use strictures $version;
52 ok defined $strictures::Smells_Like_VCS, "VCS dir has been checked (v$version)";
53 ok $strictures::Smells_Like_VCS, "VCS dir detected with .git (v$version)";
59 local $strictures::Smells_Like_VCS = 1;
68 ["lib/module.pm" => 1],
69 ["other/one.pl" => 0],
70 ["other/t/test.t" => 0],
71 ["blib/module.pm" => 1],
73 my ($file, $want) = @$check;
77 use strictures $version;
80 my $not = $want ? '' : ' not';
82 "file named $file does$not get extras (v$version)";
86 local $ENV{PERL_STRICTURES_EXTRA} = 1;
87 local %strictures::extra_load_states = ();
89 die "Can't locate $_[1] in \@INC (...).\n"
97 open my $fh, '>', \(my $str = '');
102 #line 1 "t/load_fail.t"
103 use strictures $version;
107 die $e if defined $e;
111 qr/Missing were:\n\n indirect multidimensional bareword::filehandles/,
112 "failure to load all three extra deps is reported (v$version)"
117 open my $fh, '>', \(my $str = '');
122 #line 1 "t/load_fail.t"
123 use strictures $version;
127 die $e if defined $e;
129 is $str, '', "extra dep load failure is not reported a second time (v$version)";