3 # Testing to make sure Test::Builder doesn't accidentally store objects
4 # passed in as test arguments.
7 if( $ENV{PERL_CORE} ) {
13 use Test::More tests => 4;
17 sub new { bless {}, shift }
26 ok(my $foo = Foo->new, 'created Foo object');
28 is $destroyed, 3, "DESTROY called 3 times";