use strict;
use utf8;
subtest 'Brutal ok' => sub {
is scalar @{Perl::Lint::Filter::LikePerlCritic::Brutal->filter}, 0;
};
subtest 'Cruel ok' => sub {
is scalar @{Perl::Lint::Filter::LikePerlCritic::Cruel->filter}, 22;
};
subtest 'Harsh ok' => sub {
is scalar @{Perl::Lint::Filter::LikePerlCritic::Harsh->filter}, 49;
};
subtest 'Stern ok' => sub {
is scalar @{Perl::Lint::Filter::LikePerlCritic::Stern->filter}, 93;
};
subtest 'Gentle ok' => sub {
is scalar @{Perl::Lint::Filter::LikePerlCritic::Gentle->filter}, 125;
};
done_testing;