Fix "meth meth" not being correctly reported

[perl/modules/indirect.git] / t / 20-good.t

diff --git a/t/20-good.t b/t/20-good.t
index d428d1fdf600d79f0ea08d7d9c12f93ab5fe33d5..88d80603cbae021567a929cbc75fb85206526595 100644 (file)
--- a/t/20-good.t
+++ b/t/20-good.t
@@ -9,7 +9,7 @@ package main;
 use strict;
 use warnings;
 
-use Test::More tests => 52 * 4;
+use Test::More tests => 56 * 4;
 
 my ($obj, $pkg, $cb, $x, @a);
 our $y;
@@ -86,6 +86,14 @@ $obj = Hlagh   ->
   ,    bar     
                =>        $obj       );
 ####
+$obj = new->new;
+####
+$obj = new->new; # new new
+####
+$obj = new->newnew;
+####
+$obj = newnew->new;
+####
 $obj = Hlagh->$cb;
 ####
 $obj = Hlagh->$cb();