t/strictures.t

   1 BEGIN { delete $ENV{PERL_STRICTURES_EXTRA} }
   2
   3 use Test::More qw(no_plan);
   4
   5 our (@us, @expect);
   6
   7 sub capture_stuff { [ $^H, ${^WARNING_BITS} ] }
   8
   9 sub capture_us { push @us, capture_stuff }
  10 sub capture_expect { push @expect, capture_stuff }
  11
  12 {
  13   BEGIN { $ENV{PERL_STRICTURES_EXTRA} = 0 }
  14   use strictures 1;
  15   BEGIN { capture_us }
  16   BEGIN { delete $ENV{PERL_STRICTURES_EXTRA} }
  17 }
  18
  19 {
  20   use strict;
  21   use warnings FATAL => 'all';
  22   BEGIN { capture_expect }
  23 }
  24
  25 # I'm assuming here we'll have more cases later. maybe not. eh.
  26
  27 foreach my $idx (0 .. $#us) {
  28   is($us[$idx][0], $expect[$idx][0], 'Hints ok for case '.($idx+1));
  29   is($us[$idx][1], $expect[$idx][1], 'Warnings ok for case '.($idx+1));
  30 }
  31
  32 my $v;
  33 eval { $v = strictures->VERSION; 1 } or diag $@;
  34 is $v, $strictures::VERSION, '->VERSION returns version correctly';
  35
  36 ok(!eval q{use strictures 2; 1; }, "Can't use strictures 2 (this is version 1)");