X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Findirect.git;a=blobdiff_plain;f=t%2F20-good.t;h=87e53cb010b298a0b5fd93cd86d5f0ea4001ad97;hp=d428d1fdf600d79f0ea08d7d9c12f93ab5fe33d5;hb=a14a12252b6c78b0f231e4d5e05480c90caac29c;hpb=50cf1763d6570e6589e3e809aede60d7e3f1912e

diff --git a/t/20-good.t b/t/20-good.t
index d428d1f..87e53cb 100644
--- a/t/20-good.t
+++ b/t/20-good.t
@@ -9,11 +9,12 @@ 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;
 sub meh;
+sub zap (&);
 
 {
  local $/ = "####";
@@ -86,6 +87,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();
@@ -121,21 +130,6 @@ $obj = $pkg->$cb( $obj  );
 ####
 $obj = $pkg->$cb(qw/foo bar baz/);
 ####
-$obj = new { $x };
-####
-$obj = new
-  {
-     $x  }
-  ();
-####
-$obj = new {
-  $x  } qq/foo/;
-####
-$obj = new
-   {
-      $x
-    }(qw/bar baz/);
-####
 meh;
 ####
 meh $_;
@@ -183,3 +177,11 @@ exec { $a[0] } @a;
 system $x $x, @a;
 ####
 system { $a[0] } @a;
+####
+zap { };
+####
+zap { 1; };
+####
+zap { 1; 1; };
+####
+zap { zap { }; 1; };