1234567891011121314151617181920 #!perl -Tuse strict;use warnings;use Test::FailWarnings -allow_deps => 1;use Test::More tests => 2;use Perl::Critic::Policy::Perlsecret;can_ok( 'Perl::Critic::Policy::Perlsecret', 'default_themes',);isnt( Perl::Critic::Policy::Perlsecret->default_themes(), undef, 'The policy is assigned to a default theme.',);
#!perl -T
use
strict;
warnings;
Test::FailWarnings
-allow_deps
=> 1;
Test::More
tests
=> 2;
Perl::Critic::Policy::Perlsecret;
can_ok(
'Perl::Critic::Policy::Perlsecret'
,
'default_themes'
);
isnt(
Perl::Critic::Policy::Perlsecret->default_themes(),
undef
'The policy is assigned to a default theme.'