]> git.vpit.fr Git - perl/modules/Perl-Critic-Policy-Dynamic-NoIndirect.git/blobdiff - t/10-basic.t
Update VPIT::TestHelpers to 15e8aee3
[perl/modules/Perl-Critic-Policy-Dynamic-NoIndirect.git] / t / 10-basic.t
index 314f4f576288d2873a4618c841baeeab665c17be..53629b08447ee7bab28c2b715bf2373b35e7f204 100644 (file)
@@ -5,14 +5,14 @@ use warnings;
 
 my ($tests, $reports, $subtests);
 BEGIN {
- $tests    = 27;
- $reports  = 42;
+ $tests    = 28;
+ $reports  = 43;
  $subtests = 3;
 }
 
 use Test::More tests => $tests + $subtests * $reports;
 
-use Perl::Critic::TestUtils qw/pcritique_with_violations/;
+use Perl::Critic::TestUtils qw<pcritique_with_violations>;
 
 Perl::Critic::TestUtils::block_perlcriticrc();
 
@@ -213,3 +213,7 @@ our $obj;
 my $x = meh { new $obj } new X;
 ----
 [ 'meh', '{', 2, 9 ], [ 'new', '$obj', 2, 15 ], [ 'new', 'X', 2, 26 ]
+####
+my $x = $invalid_global_when_strict_is_on; new X;
+----
+[ 'new', 'X', 1, 44 ]