Trying a new approach to testing

lancew · Aug 15, 2014 · 9546afc · 9546afc
1 parent c9fcf26
commit 9546afc
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 20 deletions.
diff --git a/t/20_policies.t b/t/20_policies.t
@@ -1,27 +1,13 @@
-use strict;
-use warnings;
+use Perl::Critic;
 use Test::More;
-use Perl::Critic::TestUtils qw( pcritique );
-
-
-my $code = <<'__CODE__';
-    print 0+ '23a';
-}
-__CODE__
-
-is pcritique('Perlsecret', \$code), 1;
-
-$code = <<'__CODE__';
-for ( @{[ qw( 1 2 3 ) ]} ) {
-    $_ = $_ * $_;    # contrived
-    print "square: $_\n";
-}
-__CODE__
-
-is pcritique('Perlsecret', \$code), 1;
 
+my $critic = Perl::Critic->new;
+$critic->add_policy(-policy => "Perl::Critic::Policy::Perlsecret");
 
+my @v      = $critic->critique("t/Perlsecret/Perlsecret.run");
 
+ok @v == 2;
+like $v[0], qr/Perlsecret/;
 
 done_testing;
 

diff --git a/t/Perlsecret/Perlsecret.run b/t/Perlsecret/Perlsecret.run
@@ -1,3 +1,5 @@
 ## Venus operator
 print 0+ '23a'; 
 
+## Babycart
+for ( @{[ qw( 1 2 3 ) ]} ) { return $_ };