my $weak_ref;

{
    my $y = Y->new();
    weaken( $weak_ref = $y );
    $y->{__CIRCULAR__} = $y if $ENV{TEST_THE_TEST};
}

ok(!defined($weak_ref), 'circular reference destruction');

##</code><code>##

sub { $garbage_collected = 1 }

##</code><code>##

sub { ++$garbage_collected }