Commit | Line | Data |
5ab06a4d |
1 | BEGIN { delete $ENV{PERL_STRICTURES_EXTRA} } |
2 | |
eae006ee |
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 | { |
5ab06a4d |
13 | BEGIN { $ENV{PERL_STRICTURES_EXTRA} = 0 } |
eae006ee |
14 | use strictures 1; |
15 | BEGIN { capture_us } |
5ab06a4d |
16 | BEGIN { delete $ENV{PERL_STRICTURES_EXTRA} } |
eae006ee |
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) { |
92cde693 |
28 | # ignore lexicalized hints |
29 | $us[$idx][0] &= ~ 0x20000; |
eae006ee |
30 | is($us[$idx][0], $expect[$idx][0], 'Hints ok for case '.($idx+1)); |
31 | is($us[$idx][1], $expect[$idx][1], 'Warnings ok for case '.($idx+1)); |
32 | } |
33 | |
91b5f6b6 |
34 | my $v; |
35 | eval { $v = strictures->VERSION; 1 } or diag $@; |
36 | is $v, $strictures::VERSION, '->VERSION returns version correctly'; |
37 | |
eae006ee |
38 | ok(!eval q{use strictures 2; 1; }, "Can't use strictures 2 (this is version 1)"); |