Login
Added test for legit-but-falsely-identified-as-bad form of bless, with a fat comma
[gknop/Perl-Critic.git] / t / 20_policies_classhierarchies.t
index ca36656..5317195 100644 (file)
@@ -43,6 +43,7 @@ my $self = bless {}, 'foo';
 my $self = bless( {}, 'foo' );
 my $self = bless [], 'foo';
 my $self = bless( [], 'foo' );
+my $self = bless {} => 'foo';
 END_PERL
 
 $policy = 'ClassHierarchies::ProhibitOneArgBless';