Move 3 more tests

Author: jkeenan

t/op/goto-amp-name.t

@@ -11,7 +11,8 @@ use warnings;
 use strict;
 use Config;
 #plan tests => 'no_plan'; # yet
-plan tests => 22;
+plan tests => 25;
+
 our $TODO;
 
 # Excerpts from 'perldoc -f goto' as of perl-5.40.1 (Aug 2025)
@@ -59,14 +60,44 @@ our $foo;
 
 ###################
 
+# deep recursion with gotos eventually caused a stack reallocation
+# which messed up buggy internals that didn't expect the stack to move
+
+sub recurse1 {
+    unshift @_, "x";
+    no warnings 'recursion';
+    goto &recurse2;
+}
+sub recurse2 {
+    my $x = shift;
+    $_[0] ? +1 + recurse1($_[0] - 1) : 0
+}
+
+{
+my $w = 0;
+    local $SIG{__WARN__} = sub { ++$w };
+    is(recurse1(500), 500, 'recursive goto &foo');
+    is $w, 0, 'no recursion warnings for "no warnings; goto &sub"';
+    delete $SIG{__WARN__};
+}
+
+# [perl #32039] Chained goto &sub drops data too early.
+
+sub a32039 { @_=("foo"); goto &b32039; }
+sub b32039 { goto &c32039; }
+sub c32039 { is($_[0], 'foo', 'chained &goto') }
+a32039();
+
+###################
+
 # goto &foo not allowed in evals
 
 sub null { 1 };
 eval 'goto &null';
 like($@, qr/Can't goto subroutine from an eval-string/, 'eval string');
 eval { goto &null };
 like($@, qr/Can't goto subroutine from an eval-block/, 'eval block');
- 
+
 # goto &foo leaves @_ alone when called from a sub
 sub returnarg { $_[0] };
 is sub {

t/op/goto.t

@@ -13,7 +13,8 @@ use warnings;
 use strict;
 use Config;
 #plan tests => 134;
-plan tests => 113;
+plan tests => 110;
+
 our $TODO;
 
 my $deprecated = 0;
@@ -496,34 +497,6 @@ sub DEBUG_TIME() {
 
 is($deprecated, 0, 'no warning was emitted');
 
-# deep recursion with gotos eventually caused a stack reallocation
-# which messed up buggy internals that didn't expect the stack to move
-
-sub recurse1 {
-    unshift @_, "x";
-    no warnings 'recursion';
-    goto &recurse2;
-}
-sub recurse2 {
-    my $x = shift;
-    $_[0] ? +1 + recurse1($_[0] - 1) : 0
-}
-my $w = 0;
-$SIG{__WARN__} = sub { ++$w };
-is(recurse1(500), 500, 'recursive goto &foo');
-is $w, 0, 'no recursion warnings for "no warnings; goto &sub"';
-delete $SIG{__WARN__};
-
-# [perl #32039] Chained goto &sub drops data too early. 
-
-sub a32039 { @_=("foo"); goto &b32039; }
-sub b32039 { goto &c32039; }
-sub c32039 { is($_[0], 'foo', 'chained &goto') }
-a32039();
-
-# [perl #35214] next and redo re-entered the loop with the wrong cop,
-# causing a subsequent goto to crash
-
 {
     my $r = runperl(
 		stderr => 1,
@@ -540,7 +513,6 @@ a32039();
     is($r, "ok\n", 'redo and goto');
 }
 
-
 TODO: {
     local $TODO = "[perl #43403] goto() from an if to an else doesn't undo local () changes";
     our $global = "unmodified";