Move 1 more test

Author: jkeenan

t/op/goto-amp-name.t

@@ -11,7 +11,7 @@ use warnings;
 use strict;
 use Config;
 #plan tests => 'no_plan'; # yet
-plan tests => 34;
+plan tests => 35;
 
 our $TODO;
 
@@ -60,6 +60,16 @@ our $foo;
 
 ###################
 
+# [perl #29708] - goto &foo could leave foo() at depth two with
+# @_ == PL_sv_undef, causing a coredump
+
+my $r = runperl(
+    prog =>
+	'sub f { return if $d; $d=1; my $a=sub {goto &f}; &$a; f() } f(); print qq(ok\n)',
+    stderr => 1
+    );
+is($r, "ok\n", 'avoid pad without an @_');
+
 # see if a modified @_ propagates
 {
   my $i;

t/op/goto.t

@@ -13,7 +13,7 @@ use warnings;
 use strict;
 use Config;
 #plan tests => 134;
-plan tests => 101;
+plan tests => 100;
 
 our $TODO;
 
@@ -309,17 +309,6 @@ returned_label:
 is($count, 1, 'called i_return_a_label');
 ok($ok, 'skipped to returned_label');
 
-# [perl #29708] - goto &foo could leave foo() at depth two with
-# @_ == PL_sv_undef, causing a coredump
-
-
-$r = runperl(
-    prog =>
-	'sub f { return if $d; $d=1; my $a=sub {goto &f}; &$a; f() } f(); print qq(ok\n)',
-    stderr => 1
-    );
-is($r, "ok\n", 'avoid pad without an @_');
-
 goto moretests;
 fail('goto moretests');
 exit;