t/op/rt69056.t

   1 #!perl -w
   2
   3 =head1 DESCRIPTION
   4
   5 This test tests against a regular expression bug
   6 that leads to a segfault
   7
   8 The bug was reported in [perl #69056] by Niko Tyni
   9
  10 =cut
  11
  12 use strict;
  13 require 't/test.pl';
  14
  15 fresh_perl_is(
  16     '$_=q(foo);s/(.)\G//g;print'
  17         => 'foo',
  18     '[perl #69056] positive GPOS regex segfault'
  19 );