X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Findirect.git;a=blobdiff_plain;f=t%2F20-good.t;fp=t%2F20-good.t;h=0f482a55cf0a3bce2d3026b11fa39457e8215261;hp=88d80603cbae021567a929cbc75fb85206526595;hb=ff16be2f69592b80dfcbc397b37dd4ea070b9d62;hpb=a5339a6ced4d5e3ad1541320476c3d6bf8ff9408

diff --git a/t/20-good.t b/t/20-good.t
index 88d8060..0f482a5 100644
--- a/t/20-good.t
+++ b/t/20-good.t
@@ -14,6 +14,7 @@ use Test::More tests => 56 * 4;
 my ($obj, $pkg, $cb, $x, @a);
 our $y;
 sub meh;
+sub try (&);
 
 {
  local $/ = "####";
@@ -129,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 $_;
@@ -191,3 +177,11 @@ exec { $a[0] } @a;
 system $x $x, @a;
 ####
 system { $a[0] } @a;
+####
+try { };
+####
+try { 1; };
+####
+try { 1; 1; };
+####
+try { try { }; 1; };