is($us[$idx][1], $expect[$idx][1], 'Warnings ok for case '.($idx+1));
}
+my $v;
+eval { $v = strictures->VERSION; 1 } or diag $@;
+is $v, $strictures::VERSION, '->VERSION returns version correctly';
+
SKIP: {
skip 'Extra tests disabled on perls <= 5.008003', 1
if $] < 5.008004;
ok(!eval q{use strictures 2; 1; }, "Can't use strictures 2 (this is version 1)");
-{
+SKIP: {
skip 'Extra tests disabled on perls <= 5.008003', 1
if $] < 5.008004;
local $ENV{PERL_STRICTURES_EXTRA} = 1;