X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F21-bad.t;h=0d3b48d96a3f81abe21a73e361595fc19e387381;hb=refs%2Ftags%2Frt88428;hp=fa2c322bda0254260f76e5372eef0f3c692064d4;hpb=faa0984a60b4134d0556ed7e6225bf83ddfb5474;p=perl%2Fmodules%2Findirect.git

diff --git a/t/21-bad.t b/t/21-bad.t
index fa2c322..0d3b48d 100644
--- a/t/21-bad.t
+++ b/t/21-bad.t
@@ -11,8 +11,8 @@ use warnings;
 
 my ($tests, $reports);
 BEGIN {
- $tests   = 82;
- $reports = 94;
+ $tests   = 84;
+ $reports = 96;
 }
 
 use Test::More tests => 3 * (4 * $tests + $reports) + 4;
@@ -491,3 +491,13 @@ meh { feh $x; 1; } new Hlagh, feh $y;
 $obj = "apple @{[new { feh $x; meh $y; 1 }]} pear"
 ----
 [ 'feh', '$x' ], [ 'meh', '$y' ], [ 'new', '{' ]
+####
+package __PACKAGE_;
+new __PACKAGE_;
+----
+[ 'new', '__PACKAGE_' ]
+####
+package __PACKAGE___;
+new __PACKAGE___;
+----
+[ 'new', '__PACKAGE___' ]