use strict;
use warnings;
-my $subtests;
-BEGIN { $subtests = 3 }
+my ($tests, $subtests);
+BEGIN {
+ $tests = 8;
+ $subtests = 3;
+}
-use Test::More tests => $subtests * 14;
+use Test::More tests => $tests + $subtests * 14;
use Perl::Critic::TestUtils qw/pcritique_with_violations/;
next;
}
+ is @violations, @expected, "right count of violations $id";
+
for my $v (@violations) {
my $exp = shift @expected;