From: Max Maischein <corion@corion.net>
Date: Thu, 10 Sep 2009 17:26:44 +0000 (+0200)
Subject: Move t/op/rt69056.t test into t/op/subst.t
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=831a7dd792d2967a0cfe83bb0272cf0a346df76d;p=p5sagit%2Fp5-mst-13.2.git

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

diff --git a/MANIFEST b/MANIFEST
index ffeab36..e555b62 100644
--- 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
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
--- 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' );
+