Test for deparsing proto sub calls with &

See the previous commit’s explanation.

1 files changed, 11 insertions, 1 deletions

diff --git a/lib/B/Deparse.t b/lib/B/Deparse.t
index 5254db4db6..19d541af79 100644
--- a/lib/B/Deparse.t
+++ b/lib/B/Deparse.t
@@ -13,7 +13,7 @@ BEGIN {
 use warnings;
 use strict;
 
-my $tests = 40; # not counting those in the __DATA__ section
+my $tests = 41; # not counting those in the __DATA__ section
 
 use B::Deparse;
 my $deparse = B::Deparse->new();
@@ -331,6 +331,16 @@ is($a, <<'EOCODI', 'no extra output when deparsing foo()');
 foo();
 EOCODI
 
+# Sub calls compiled before importation
+like runperl(stderr => 1, switches => [ '-MO=-qq,Deparse', $path ],
+             prog => 'BEGIN {
+                       require Test::More;
+                       Test::More::->import;
+                       is(*foo, *foo)
+                     }'),
+     qr/&is\(/,
+    'sub calls compiled before importation of prototype subs';
+
 # CORE::no
 $a = readpipe qq`$^X $path "-MO=Deparse" -Xe `
              .qq`"use feature q|:all|; my sub no; CORE::no less" 2>&1`;