Document and test using indirect inside the auditted code

[perl/modules/Perl-Critic-Policy-Dynamic-NoIndirect.git] / t / 10-basic.t

diff --git a/t/10-basic.t b/t/10-basic.t
index 55215c40110bc19d09d86893aa21b60d45224aea..0c1c23d3e11fddf598038f6a35aed87ef8128be8 100644 (file)
--- 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 ]