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=0c1c23d3e11fddf598038f6a35aed87ef8128be8;hp=55215c40110bc19d09d86893aa21b60d45224aea;hb=05870b723b862a0daadd62a71b81e3e8bca7f881;hpb=ef89faf5a36a866b83462cad90209f9cc68a7e41

diff --git a/t/10-basic.t b/t/10-basic.t
index 55215c4..0c1c23d 100644
--- a/t/10-basic.t
+++ b/t/10-basic.t
@@ -5,7 +5,7 @@ use warnings;
 
 my ($tests, $reports, $subtests);
 BEGIN {
- $tests    = 25;
+ $tests    = 27;
  $reports  = 42;
  $subtests = 3;
 }
@@ -71,6 +71,9 @@ my $x = new X;
 ----
 [ 'new', 'X', 1, 9 ]
 ####
+use indirect; my $x = new X;
+----
+####
 my $x = new X; $x = new X;
 ----
 [ 'new', 'X', 1, 9 ], [ 'new', 'X', 1, 21 ]
@@ -104,6 +107,10 @@ my $x = new new;
 [ 'new', 'new', 1, 9 ]
 ####
 our $obj;
+use indirect; my $x = new $obj;
+----
+####
+our $obj;
 my $x = new $obj;
 ----
 [ 'new', '$obj', 2, 9 ]