This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Move t/op/rt69056.t test into t/op/subst.t
authorMax Maischein <corion@corion.net>
Thu, 10 Sep 2009 17:26:44 +0000 (19:26 +0200)
committerYves Orton <demerphq@gmail.com>
Thu, 10 Sep 2009 17:26:44 +0000 (19:26 +0200)
MANIFEST
t/op/rt69056.t [deleted file]
t/op/subst.t

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
+++ /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'
-);
index 30af8a2..92dac1b 100644 (file)
@@ -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' );
+