X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FPerl-Critic-Policy-Dynamic-NoIndirect.git;a=blobdiff_plain;f=t%2F10-basic.t;fp=t%2F10-basic.t;h=146c6a1390330f262f09457ef33f89b0ffc7c3d5;hp=314f4f576288d2873a4618c841baeeab665c17be;hb=6e8dbf3b02e4df3a7304b7acbe47037575fc952d;hpb=4421e107580f32a6c992f44d01b1d2818d65ee87

diff --git a/t/10-basic.t b/t/10-basic.t
index 314f4f5..146c6a1 100644
--- a/t/10-basic.t
+++ b/t/10-basic.t
@@ -5,8 +5,8 @@ use warnings;
 
 my ($tests, $reports, $subtests);
 BEGIN {
- $tests    = 27;
- $reports  = 42;
+ $tests    = 28;
+ $reports  = 43;
  $subtests = 3;
 }
 
@@ -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 ]