Also test calls to code references

diff --git a/t/17-calls.t b/t/17-calls.t
index 8db7ac4518657741ea4d951a68577ec9fa183a1e..76e8a3cb2c6457f18dc39a9c52888c5339d09390 100644 (file)
--- a/t/17-calls.t
+++ b/t/17-calls.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 2 * 4 * 5;
+use Test::More tests => 2 * 4 * 6;
 
 use B::RecDeparse;
 
@@ -11,6 +11,7 @@ my $brd = B::RecDeparse->new(level => -1);
 
 sub foo { 123 }
 my $pkg;
+my $coderef;
 
 my @tests = (
  [ e1 => 'foo()',      '123' ],
@@ -23,6 +24,11 @@ my @tests = (
  [ x3 => 'bar(@_)',    'bar' ],
  [ x4 => 'bar(shift)', 'bar' ],
 
+ [ c1 => '$coderef->()',      'coderef' ],
+ [ c2 => '$coderef->(1)',     'coderef' ],
+ [ c3 => '$coderef->(@_)',    'coderef' ],
+ [ c4 => '$coderef->(shift)', 'coderef' ],
+
  [ m1  => '"pkg"->qux()',      'qux' ],
  [ m2  => '"pkg"->qux(1)',     'qux' ],
  [ m3  => '"pkg"->qux(@_)',    'qux' ],