X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Findirect.git;a=blobdiff_plain;f=t%2F20-good.t;h=88d80603cbae021567a929cbc75fb85206526595;hp=d428d1fdf600d79f0ea08d7d9c12f93ab5fe33d5;hb=9856d89db33e335664cca6910de72b53e0e12763;hpb=a563bfdf922825ad97cb71f5498d5f038cacd9d2

diff --git a/t/20-good.t b/t/20-good.t
index d428d1f..88d8060 100644
--- 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();