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;