t/op/qr_gc.t

   1 #!./perl -w
   2
   3 BEGIN {
   4     chdir 't' if -d 't';
   5     @INC = '../lib';
   6     require './test.pl';
   7 }
   8
   9 plan tests => 2;
  10
  11 $TODO = "leaking since 32751";
  12
  13 my $destroyed;
  14 {
  15     no warnings 'redefine';
  16     sub Regexp::DESTROY { $destroyed++ }
  17 }
  18
  19 {
  20     my $rx = qr//;
  21 }
  22
  23 is( $destroyed, 1, "destroyed regexp" );
  24
  25 undef $destroyed;
  26
  27 {
  28     my $var = bless {}, "Foo";
  29     my $rx = qr/(?{ $var })/;
  30 }
  31
  32 is( $destroyed, 1, "destroyed regexp with closure capture" );
  33