#!/usr/bin/perl -w
# Testing to make sure Test::Builder doesn't accidentally store objects
# passed in as test arguments.
BEGIN {
if
(
$ENV
{PERL_CORE} ) {
chdir
't'
;
@INC
=
'../lib'
;
}
}
package
Foo;
my
$destroyed
= 0;
sub
new {
bless
{},
shift
}
sub
DESTROY {
$destroyed
++;
}
package
main;
for
(1..3) {
ok(
my
$foo
= Foo->new,
'created Foo object'
);
}
is
$destroyed
, 3,
"DESTROY called 3 times"
;