Move t/op/rt69056.t test into t/op/subst.t

diff --git a/MANIFEST b/MANIFEST
index ffeab36..e555b62 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -4356,7 +4356,6 @@ t/op/reset.t                      See if reset operator works
 t/op/re.t                      See if exportable 're' funcs in universal.c work
 t/op/re_tests                  Regular expressions for regexp.t
 t/op/reverse.t                 See if reverse operator works
-t/op/rt69056.t                 Check for segfault reported in #69056
 t/op/runlevel.t                        See if die() works from perl_call_*()
 t/op/rxcode.t                  See if /(?{ code })/ works
 t/op/setpgrpstack.t            See if setpgrp works

diff --git a/t/op/rt69056.t b/t/op/rt69056.t
deleted file mode 100644 (file)
index 5c92b36..0000000
--- a/t/op/rt69056.t
+++ /dev/null
@@ -1,19 +0,0 @@
-#!perl -w
-
-=head1 DESCRIPTION
-
-This test tests against a regular expression bug
-that leads to a segfault
-
-The bug was reported in [perl #69056] by Niko Tyni
-
-=cut
-
-use strict;
-require 't/test.pl';
-
-fresh_perl_is(
-    '$_=q(foo);s/(.)\G//g;print'
-        => 'foo',
-    '[perl #69056] positive GPOS regex segfault'
-);

diff --git a/t/op/subst.t b/t/op/subst.t
index 30af8a2..92dac1b 100644 (file)
--- a/t/op/subst.t
+++ b/t/op/subst.t
@@ -7,7 +7,7 @@ BEGIN {
 }
 
 require './test.pl';
-plan( tests => 140 );
+plan( tests => 141 );
 
 $x = 'foo';
 $_ = "x";
@@ -594,3 +594,6 @@ is($name, "cis", q[#22351 bug with 'e' substitution modifier]);
        is($_, "012", "RT#52104: $id");
     }
 }
+
+fresh_perl_is( '$_=q(foo);s/(.)\G//g;print' => 'foo', '[perl #69056] positive GPOS regex segfault' );
+