1 use Test::More qw(no_plan);
5 sub capture_stuff { [ $^H, ${^WARNING_BITS} ] }
7 sub capture_us { push @us, capture_stuff }
8 sub capture_expect { push @expect, capture_stuff }
17 use warnings FATAL => 'all';
18 BEGIN { capture_expect }
21 # I'm assuming here we'll have more cases later. maybe not. eh.
23 foreach my $idx (0 .. $#us) {
24 is($us[$idx][0], $expect[$idx][0], 'Hints ok for case '.($idx+1));
25 is($us[$idx][1], $expect[$idx][1], 'Warnings ok for case '.($idx+1));
29 local $0 = 't/00load.t';
31 chdir("t/smells-of-vcs");
36 # I don't test $@ here since if indirect isn't installed we hit one
37 # error and if it is we hit another; it's enough the code path's hit.
38 ok(!$r, 'strictures blows up for t/00load.t');
41 ok(!eval q{use strictures 2; 1; }, "Can't use strictures 2 (this is version 1)");