X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Findirect.git;a=blobdiff_plain;f=t%2F21-bad.t;h=c789371945f4364fa2b7750b501b34999b37e5f4;hp=8e7b5f033217c03cee49f14c477334d5bac3ae64;hb=6dbf3b321823741481f481326a36e7614d2346e8;hpb=622e5867ae8639f5be44dcd7128399c8380330f9

diff --git a/t/21-bad.t b/t/21-bad.t
index 8e7b5f0..c789371 100644
--- a/t/21-bad.t
+++ b/t/21-bad.t
@@ -11,8 +11,8 @@ use warnings;
 
 my ($tests, $reports);
 BEGIN {
- $tests   = 84;
- $reports = 96;
+ $tests   = 88;
+ $reports = 100;
 }
 
 use Test::More tests => 3 * (4 * $tests + $reports) + 4;
@@ -510,3 +510,23 @@ package __PACKAGE___;
 new __PACKAGE___;
 ----
 [ 'new', '__PACKAGE___' ]
+####
+package Hurp;
+new { __PACKAGE__ }; # Hurp
+----
+[ 'new', '{' ]
+####
+package __PACKAGE_;
+new { __PACKAGE__ };
+----
+[ 'new', '{' ]
+####
+package __PACKAGE__;
+new { __PACKAGE__ };
+----
+[ 'new', '{' ]
+####
+package __PACKAGE___;
+new { __PACKAGE__ };
+----
+[ 'new', '{' ]