Add some tests for 'new { __PACKAGE__ }'

[perl/modules/indirect.git] / t / 21-bad.t

diff --git a/t/21-bad.t b/t/21-bad.t
index 8e7b5f033217c03cee49f14c477334d5bac3ae64..c789371945f4364fa2b7750b501b34999b37e5f4 100644 (file)
--- a/t/21-bad.t
+++ b/t/21-bad.t
@@ -11,8 +11,8 @@ use warnings;
 
 my ($tests, $reports);
 BEGIN {
 
 my ($tests, $reports);
 BEGIN {

- $tests   = 84;
- $reports = 96;
+ $tests   = 88;
+ $reports = 100;

 }
 
 use Test::More tests => 3 * (4 * $tests + $reports) + 4;
 }
 
 use Test::More tests => 3 * (4 * $tests + $reports) + 4;


@@ -510,3 +510,23 @@ package __PACKAGE___;
 new __PACKAGE___;
 ----
 [ 'new', '__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', '{' ]