Deparse.t: Adjust a test broken 2 commits ago

1 files changed, 20 insertions, 10 deletions

diff --git a/lib/B/Deparse.t b/lib/B/Deparse.t
index 19d541af79..24213d1c8b 100644
--- a/lib/B/Deparse.t
+++ b/lib/B/Deparse.t
@@ -13,7 +13,7 @@ BEGIN {
 use warnings;
 use strict;
 
-my $tests = 41; # not counting those in the __DATA__ section
+my $tests = 42; # not counting those in the __DATA__ section
 
 use B::Deparse;
 my $deparse = B::Deparse->new();
@@ -341,6 +341,25 @@ like runperl(stderr => 1, switches => [ '-MO=-qq,Deparse', $path ],
      qr/&is\(/,
     'sub calls compiled before importation of prototype subs';
 
+# [perl #121050] Prototypes with whitespace
+is runperl(stderr => 1, switches => [ '-MO=-qq,Deparse', $path ],
+           prog => <<'EOCODO'),
+sub _121050(\$ \$) { }
+_121050($a,$b);
+sub _121050empty( ) {}
+() = _121050empty() + 1;
+EOCODO
+   <<'EOCODP', '[perl #121050] prototypes with whitespace';
+sub _121050 (\$ \$) {
+    
+}
+_121050 $a, $b;
+sub _121050empty ( ) {
+    
+}
+() = _121050empty + 1;
+EOCODP
+
 # CORE::no
 $a = readpipe qq`$^X $path "-MO=Deparse" -Xe `
              .qq`"use feature q|:all|; my sub no; CORE::no less" 2>&1`;
@@ -1864,15 +1883,6 @@ do {
     $;
 };
 ####
-# [perl #121050] Prototypes with whitespace
-sub _121050(\$ \$) { }
-_121050($a,$b);
-sub _121050empty( ) {}
-() = _121050empty() + 1;
->>>>
-_121050 $a, $b;
-() = _121050empty + 1;
-####
 # Ampersand calls and scalar context
 # OPTIONS -P
 package prototest;