1 # -e is sufficient here.
2 -e 't/smells-of-vcs/.git'
3 or mkdir('t/smells-of-vcs/.git')
4 or die "Couldn't create fake .git: $!";
6 use Test::More qw(no_plan);
10 sub capture_stuff { [ $^H, ${^WARNING_BITS} ] }
12 sub capture_us { push @us, capture_stuff }
13 sub capture_expect { push @expect, capture_stuff }
22 use warnings FATAL => 'all';
23 BEGIN { capture_expect }
26 # I'm assuming here we'll have more cases later. maybe not. eh.
28 foreach my $idx (0 .. $#us) {
29 is($us[$idx][0], $expect[$idx][0], 'Hints ok for case '.($idx+1));
30 is($us[$idx][1], $expect[$idx][1], 'Warnings ok for case '.($idx+1));
34 local $0 = 't/00load.t';
36 chdir("t/smells-of-vcs");
41 # I don't test $@ here since if indirect isn't installed we hit one
42 # error and if it is we hit another; it's enough the code path's hit.
43 ok(!$r, 'strictures blows up for t/00load.t');
46 ok(!eval q{use strictures 2; 1; }, "Can't use strictures 2 (this is version 1)");