Cross Reference: ok_obj.t
xref
: /
osnet-11
/
usr
/
src
/
cmd
/
perl
/
5.8.4
/
distrib
/
lib
/
Test
/
Simple
/
t
/
ok_obj.t
Home
History
Annotate
Line#
Navigate
Download
Search
only in
./
#!/
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'
;
}
}
use
Test
::
More
tests
=>
4
;
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"
;