Retract #20548 and #20465.
[p5sagit/p5-mst-13.2.git] / lib / Test / Simple / t / ok_obj.t
CommitLineData
60ffb308 1#!/usr/bin/perl -w
2
3# Testing to make sure Test::Builder doesn't accidentally store objects
4# passed in as test arguments.
5
6BEGIN {
7 if( $ENV{PERL_CORE} ) {
8 chdir 't';
9 @INC = '../lib';
10 }
11}
12
13use Test::More tests => 4;
14
15package Foo;
16my $destroyed = 0;
17sub new { bless {}, shift }
18
19sub DESTROY {
20 $destroyed++;
21}
22
23package main;
24
25for (1..3) {
26 ok(my $foo = Foo->new, 'created Foo object');
27}
28is $destroyed, 3, "DESTROY called 3 times";
29