use Test::More tests => 1;
use Scalar::Util qw(weaken);

{
	my $original = bless {},'My::Test::Class'; 
	weaken $original;
	ok !defined($original), '$object garbage collected';
}