Explicitly test goto-into-foreach

It is already tested in t/op/goto.t, but only as part of an existing
test to see which of multiple identical labels gets chosen.

1 files changed, 7 insertions, 0 deletions

diff --git a/t/lib/croak/pp_ctl b/t/lib/croak/pp_ctl
index ec664138e0..42319ff2e8 100644
--- a/t/lib/croak/pp_ctl
+++ b/t/lib/croak/pp_ctl
@@ -1,4 +1,11 @@
 __END__
+# NAME goto into foreach
+no warnings 'deprecated';
+goto f;
+foreach(1){f:}
+EXPECT
+Can't "goto" into the middle of a foreach loop at - line 3.
+########
 # NAME dump with computed label
 no warnings 'deprecated';
 my $label = "foo";