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