[p5sagit/p5-mst-13.2.git] / t / op / qr_gc.t

#!./perl -w

BEGIN {
    chdir 't' if -d 't';
    @INC = '../lib';
    require './test.pl';
}

plan tests => 2;

$TODO = "leaking since 32751";

my $destroyed;
{
    no warnings 'redefine';
    sub Regexp::DESTROY { $destroyed++ }
}

{
    my $rx = qr//;
}

is( $destroyed, 1, "destroyed regexp" );

undef $destroyed;

{
    my $var = bless {}, "Foo";
    my $rx = qr/(?{ $var })/;
}

is( $destroyed, 1, "destroyed regexp with closure capture" );
Commit	Line	Data
49c38585	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